Perldiscuss - Perl Newsgroups And Mailing Lists wrote: > > I know how it's supposed to be done but when i tried it in a program i'm > working on at the moment it isn't working quite how i expected. > > The program is, in it's simplest form (which still doesn't work): > ------------------------------------------------------ > #!perl > > for $file (<s2/*>) > { > push @ARGV, $file; > }
Or simply: push @ARGV, <s2/*>; > $^I = "~"; > for (<>) You have to use a while loop for the "magic" to work: while ( <> ) { > { > > s/(<td .*?>)/<td>/g; > print; > } John -- use Perl; program fulfillment -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]