foreach (1, 2, 4) {
print "\$sheet = $_\n";
}
-----Original Message-----
From: Beckett Richard-qswi266 [mailto:[EMAIL PROTECTED]]
Sent: Friday, July 18, 2003 8:57 AM
To: '[EMAIL PROTECTED]'
Subject: Neater?
Masters!?
Is there a neater way of doing this:?
my $sheet;
foreach (1, 2, 4) {
$sheet = $_;
print "\$sheet = $sheet\n";
}
something along the lines of:
foreach (my $sheet = (1, 2, 4)) {
print "\$sheet = $sheet\n";
}
But this doesn't work as intended.
Thanks.
R.
_______________________________________________
Perl-Win32-Users mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs