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]
