Hi,

as you showed it with your solution: Be aware of the subtle difference between:

perl -ne'/(data)/ && print $1 and last' file.txt

perl -ne'/(data)/ && print $1 && last' file.txt
[download]

That may bite someone (by the way: I was bitten ;-) )

McA

Hi,
Be aware of the subtle difference between:

perl -ne'/(data)/ && print $1 and last' file.txt

perl -ne'/(data)/ && print $1 && last' file.txt
[download]

Of course, I saw the subtle difference, and how you used

.. print ($1) ...
[download]


the parentheses which is effectively the same thing if "and" is used instead of "&&"
check this:

Using


perl -MO=Deparse -ne'/(data)/ && print $1 && last' file.txt
[download]

you gets:

LINE: while (defined($_ = <ARGV>)) {
    print $1 && last if /(data)/;
}
[download]

but using


perl -MO=Deparse -ne'/(data)/ && print ($1) && last' file.txt
[download]

gives:

LINE: while (defined($_ = <ARGV>)) {
    last if /(data)/ and print $1;
}
[download]

Which is same as this:


perl -MO=Deparse -ne'/(data)/ && print $1 and last' file.txt
[download]

LINE: while (defined($_ = <ARGV>)) {
    last if /(data)/ and print $1;
}
[download]

If you tell me, I'll forget.
If you show me, I'll remember.
if you involve me, I'll understand.
--- Author unknown to me

I was sure that you know the difference. ;)

I just wanted to point it out for the interested readers. And in the result we get just much more interesting stuff from you. ++ for that.

Thank you.

Best regards
McA