ウェブ開発/Perl/サンプルコード - [新]パソコン忘備録

サンプル

メモ

scalar: $
array: @
hash: %
refer: \$, \@, \%

追加と取り出しの関係
末尾：push / pop
先頭：unshift / shift

逆順
　reverse(1 .. 5):

ハッシュ
my %user = (
name => 'Alice',
job => 'Programmer',
affiliation => 'PerlEntrance'
);
print $user{name}; # nameが表示される => "Alice"
print $user{job}; # jobが表示される => "Programmer"
print $user{affiliation}; # affiliationが表示される => "PerlEntrance"

derefer: $arr->[1];

${$arr[0]}[1];
$arr[0]->[1];

#!/usr/bin/perl
 
use strict;
use warnings;
 
my $file = shift;
die "Usage: $0 <file>\n" unless $file;
 
open(my $fh, '<', $file) or die ("Error: $!\n");
my @target = <$fh>;
close($fh);
 
my @match = grep(/^a/, @target);
print @match;
 

hokkaido
aomori
iwate
miyagi
akita
yamagata
fukushima
ibaraki
tochigi
gunma
saitama
chiba
tokyo
kanagawa
niigata
toyama
ishikawa
fukui
yamanashi
nagano
 

http://ll.just4fun.biz/?Perl/%E3%82%B5%E3%83%B3%E3%83%97%E3%83%AB

CSV etc
print join(",", @items) . "\n";