Re: Re: Re: Re: Un-obfuscate me

Wouldn't \"aString" .. __ essentially be the same as 1 .. 1 in this context? If so, then the string "1E0" would be returned when the first line of data is read ("1" for first line counted, "E0" for last line counted.)

Comment on Re: Re: Re: Re: Un-obfuscate me

Replies are listed 'Best First'.
Re: Re: Re: Re: Re: Un-obfuscate me by chipmunk (Parson) on Dec 19, 2000 at 20:04 UTC
Hehe... I figured out a use for \"aString"..__ after all. Note that it is not equivalent to 1..1. (Hint: '__' != 1) `#!/usr/local/bin/perl $t = tell DATA; while (<DATA>) { if ($r = \"aString" .. __) { last if $r =~ /E/; print; $. = -1; } seek DATA, $t, 0; } __END__ Just another Perl hacker,` [download] If you run this script, you might want to do so in the background. It takes a while to finish...	[reply] [d/l]

Replies are listed 'Best First'.

Re: Re: Re: Re: Re: Un-obfuscate me
by chipmunk (Parson) on Dec 19, 2000 at 20:04 UTC

#!/usr/local/bin/perl

$t = tell DATA;

while (<DATA>) {
  if ($r = \"aString" .. __) {
    last if $r =~ /E/;
    print;
    $. = -1;
  }
  seek DATA, $t, 0;
}

__END__
Just another Perl hacker,
[download]

[reply]
[d/l]