awk2perl

Hallo,

ich suche sowas

echo "abc=5=7" |awk -F"=" '/abc/{print $3}'
7

wie kann ich das mit perl realisieren?

ob 'abc' im Text vorkommt bekomme ich ja mit

if ($text =~ /abc/)

aber wie kann ich die Zeile in der das Suchmuster enthalten ist
weiterverarbeiten?

Gruß,
jan

Re: awk2perl

Hallo Jan,

Jan Schmidt wrote:
> echo "abc=5=7" |awk -F"=" '/abc/{print $3}'
> 7
>
> wie kann ich das mit perl realisieren?

echo "abc=5=7" |perl -e '$s = ; print ((split(/=/, $s))[2]) if $s
=~ /abc/'

Gruesse,
Johannes

Re: awk2perl

Jan Schmidt writes:

> Hallo,
>
> ich suche sowas
>
> echo "abc=5=7" |awk -F"=" '/abc/{print $3}'
> 7
>
> wie kann ich das mit perl realisieren?

Das sieht in Perl ähnlich aus:

echo "abc=5=7" | perl -F= -nale '/abc/ and print $F[2]'
7

Gruß,
Slaven

--
Slaven Rezic - slaven rezic de

tkrevdiff - graphical display of diffs between revisions (RCS, CVS or SVN)
http://ptktools.sourceforge.net/#tkrevdiff

Re: awk2perl

Slaven Rezic writes:

> Jan Schmidt writes:
>
> > Hallo,
> >
> > ich suche sowas
> >
> > echo "abc=5=7" |awk -F"=" '/abc/{print $3}'
> > 7
> >
> > wie kann ich das mit perl realisieren?
>
> Das sieht in Perl ähnlich aus:
>
> echo "abc=5=7" | perl -F= -nale '/abc/ and print $F[2]'
> 7
>

Und außerdem gibt es noch a2p zum automatischen Konvertieren von awk
nach perl.

Gruß,
Slaven

--
Slaven Rezic - slaven rezic de
babybike - routeplanner for cyclists in Berlin
handheld (e.g. Compaq iPAQ with Linux) version of bbbike
http://bbbike.sourceforge.net

Re: awk2perl

Slaven Rezic writes:

> Slaven Rezic writes:

> Und außerdem gibt es noch a2p zum automatischen Konvertieren von awk
> nach perl.

danke für die Tips.

a2p und s2p werden mir sicher viele Fragen ersparen (kannte ich noch nicht).

Gruß,
Jan