Re: split and print

#!/usr/bin/perl -w
use strict;

my $var1 = 'abc~123~def';
my @fields = split(/~/,$var1);

foreach (@fields)
{
   print "$_\n";
}

__END__
abc
123
def
[download]

Comment on Re: split and print Download Code

Replies are listed 'Best First'.
Re^2: split and print (fore!) by toolic (Bishop) on Sep 04, 2009 at 19:32 UTC
A little golf? `print"$_\n"for split/~/,'abc~123~def'` [download]	[reply] [d/l]
Re^3: split and print (fore!) by ikegami (Patriarch) on Sep 04, 2009 at 20:22 UTC
I see your `perl -e'print"$_\n"for split/~/,"abc~123~def"' 41` [download] And give you `perl -le'print for split/~/,"abc~123~def"' 37 perl -E'say for split/~/,"abc~123~def"' 34 perl -E'$_="abc~123~def";s/~/\n/g;say' 33` [download] I guess the following is cheating `perl -E'say for abc,123,def' 23` [download]	[reply] [d/l] [select]