code:

bla-bla-bla KEYWORD "id" bla-bla-bla
bla-bla-bla KEYWORD "id" bla-bla-bla
bla-bla-bla KEYWORD "id" bla-bla-bla
bla-bla-bla KEYWORD "id" bla-bla-bla

code:

{
 KWPOS=index($0,"KEYWORD")
 TMPSTR=substr($0,KWPOS+9,200)
 IDPOS=index(TMPSTR,"\"")
 ID=substr(TMPSTR,1,IDPOS-1)
 print ID
}

extract_id.pl:

---

#!/usr/bin/perl

die "\n\nSYNOPSYS:\n\t$0 input_file\n\n" if (@ARGV < 1);

$inp = $ARGV[0];

die "File $inp doesn't exist" if (!(-e $inp));
open INP, $inp || die "Can't open $inp";

while ($str = <INP>)
{
print "$1\n" if ($str =~ /\s+KEYWORD\s+"([^"]+)"\s+/);
}

close INP;

---

В ответ на:

---

твое печатает всю строку целиком.

---

code:

sed -n 's/.*KEYWORD[^"]*"\([^"]*\)".*/\1/p'

code:

perl -nle '/KEYWORD\s+"(.*?)"/ and print $1'

code:
bachan@bugaga ~/zzz $ cat aaa
bla-bla-bla KEYWORD "id" bla-bla-bla
bla-bla-bla KEYWORD "id" bla-bla-bla
bla-bla-bla KEYWORD "id" bla-bla-bla
bla-bla-bla KEYWORD "id" bla-bla-bla
bachan@bugaga ~/zzz $ cat aaa | grep KEYWORD | sed 's/.*KEYWORD[^"]*"\([^"]*\)".*/\1/'
id
id
id
id

code:
 $ info sed

The `s' Command
===============

   The syntax of the `s' (as in substitute) command is
`s/REGEXP/REPLACEMENT/FLAGS'.  The `/' characters may be uniformly
replaced by any other single character within any given `s' command.
The `/' character (or whatever other character is used in its stead)
can appear in the REGEXP or REPLACEMENT only if it is preceded by a `\'
character.

   The `s' command is probably the most important in `sed' and has a
lot of different options.  Its basic concept is simple: the `s' command
attempts to match the pattern space against the supplied REGEXP; if the
match is successful, then that portion of the pattern space which was
matched is replaced with REPLACEMENT.

   The REPLACEMENT can contain `\N' (N being a number from 1 to 9,
inclusive) references, which refer to the portion of the match which is
contained between the Nth `\(' and its matching `\)'.  Also, the
REPLACEMENT can contain unescaped `&' characters which reference the
whole matched portion of the pattern space.  Finally, as a GNU `sed'
extension, you can include a special sequence made of a backslash and
one of the letters `L', `l', `U', `u', or `E'.  The meaning is as
follows:

Quote:

---

code:
perl -nle '/KEYWORD\s+"(.*?)"/ and print $1'
, а не тот ужас, который там выше написан.

---