Perlについての質問箱 14箱目
■ このスレッドは過去ログ倉庫に格納されています
0405デフォルトの名無しさん
NGNGmy @char = ('a'..'z');
print $char[ rand @char ];
>>393
my @field = qw(DATE ID BID NAME EMAIL);
for my $line (@STOCK) {
my %field;
@field{@field} = split /<>/, $line;
...
■ このスレッドは過去ログ倉庫に格納されています