in reply to Re^3: Search and Copy
in thread Search and Copy


open (OUTPUT, ">Results.txt") 

open( INFILE, "Textfile.TXT" )
while (<INFILE>) {
if ($ARG =~ /(Something.{0,250})/ ) {
print OUTPUT $ARG ;
}
}

close (OUTPUT);

[download]

The "regexp" suggested is not working.

Thoughts?

Replies are listed 'Best First'.
Re^5: Search and Copy
by choroba (Cardinal) on Nov 24, 2012 at 21:55 UTC
    The regex would work if you match it against the right variable. Where is $ARG coming from? Use strict and warnings; and if someone gives you a code, taking just a small part of it if you do not understand the rest would probably not work.
    لսႽ† ᥲᥒ⚪⟊Ⴙᘓᖇ Ꮅᘓᖇ⎱ Ⴙᥲ𝇋ƙᘓᖇ
[reply]

In Section Seekers of Perl Wisdom