����ϡ��䤬��°���븦�漼��ǹԤʤäƤ���perl�ֽ����Ѥ˽����
������������Ǥϡ����̤Υƥ����Ȥ���ɬ�פʾ������Ф��ʤ���� �ʤ�ʤ������¿��. C ����ǹ��٤ʥƥ����Ƚ�����ץ�������Τ����ݤʤ��Ȥ�¿����, Perl�ʤ��ڤ˽��Ȥ��Ǥ���.
% perl <������ץ�̾> <�оݥե�����>
�ޤ���
% <������ץ�̾> <���ץ����> (UNIX�Τ�)
��Ԥξ���Perl������ץȤ�1���ܤ� "#!/usr/bin/perl" �� ���Ȥ�, ������ץȼ��Τ�¹Բ�ǽ�ˤ��Ƥ������Ȥ�ɬ��(c.f. chmod)�� "#!/usr/bin/env perl"�Ǥ�褤��
$hoge = 123; print $hoge; # 123
$hoge = 123; print $hage; # ������Ϥ���ʤ�
$hoge = '�Ȥꤢ����ʸ����'; print '$hoge'; # $hoge print "$hoge"; # �Ȥꤢ����ʸ����
$a = 123;
$b = 456;
print $a + $b; # 579
print $a . $b; # 123456 ("."��ʸ�����Ϣ�뤹��黻��)@tmp = (1, 2, 3); print $tmp[0]; # 1
print $tmp[$#tmp]; # 3
print @tmp; # 123 print @tmp + 0; # 3
@tmp = ();
print $tmp[$i] if exists $tmp[$i];
$tmp{'ʸ����'}, $tmp{$hoge}
%tmp = ( aaa => 10, bbb => 20, ccc => 30 );
print $tmp{'bbb'}; # 20
print keys(%tmp); # cccbbbaaa print values(%tmp); # 302010
%tmp = ( aaa => 10, bbb => 20, ccc => 30 );
while ( ($key, $value) = each %tmp ) {
print "$key,$value\n";
}%tmp = ();
print $tmp{'aaa'} if exists $tmp{'aaa'};
$matrix[0][1] = 1;
$hash{'hoge'}[3] = 'hogehoge';
if( $option eq 'a' ){
print $value_a;
} elsif( $option eq 'b' ){
print $value_b;
} else{
print 'no option';
}
print $hoge if $option eq 'a';
$i = 0;
while( $i < 10 ){
print "i = $i\n";
$i++;
}
for( $i = 0; $i < 10; $i++ ){
print "i = $i\n";
}
@tmp = ('apple', 'orange', 'banana');
foreach $value ( @tmp ){
print "$value\n";
}
foreach $key ( keys %hash ){
print "$key $hash{$key}\n";
}
foreach $key1 ( keys %hash ){
foreach $key2 ( keys %{$hash{$key1}} ){
print "$key1, $key2, $hash{$key1}{$key2}\n";
}
}
LABEL:
foreach $n ( @hoge1 ){
foreach $m ( @hoge2 ){
if ( not $m == 1 ){
next LABEL;
}
...
}
}| ���ͤ���� | ʸ�������� | ��̣ |
|---|---|---|
| > | gt | ����礭�� |
| => | ge | �ʾ� |
| < | lt | ��꾮���� |
| <= | le | �ʲ� |
| == | eq | ������ |
| != | ne | �������ʤ� |
| <=> | cmp | ���դ��礭���Ȥ� -1 �������Ȥ� 0 ���դ��礭���Ȥ� 1 |
$a = '1'; $b = '1.0'; print $a == $b, "\n"; # 1 print $a eq $b, "\n"; # (�ʤˤ���Ϥ���ʤ�)
$a = 1; $b = 1.0; # a,b�Ȥ�˿��ͤ�1 print $a == $b, "\n"; # 1 print $a eq $b, "\n"; # 1
$var =~ m/����ɽ��/ �⤷���� $var =~ /����ɽ��/
$var = 'abcabc'; $var =~ m/cab/; # match!
$var = 'ABCABC'; $var =~ /cab/i; # match!
$var =~ s/����ʸ����(����ɽ��)/�ִ�ʸ����/;
$var = 'ababab'; $var =~ s/ab/X/; print $var, "\n"; # Xabab $var = 'ababab'; $var =~ s/ab/X/g; print $var, "\n"; # XXX
sub add {
my @hoge = @_; # ��������ʤ�����������Υ��������ѿ��˥��ԡ�
return $hoge[0] + $hoge[1];
}
$number = &add(3, 4); # 7
�ؿ�̾($a, $b, $c); �ؿ�̾ $a, $b, $c;
print "kotae ha ", 123 + 235, " desu", "\n";
$tmp = 123.456; printf "%.1f", $tmp; # 123.4
@hoge = split( /�ѥ�����/, ʸ����, <����ʬ���>);
$hoge = join( ���ڤ�ʸ��, ���� );
$string = 'a:b:c';
@list = split(/:/, $string); # (a, b, c)
print join('%', @list); # a%b%c$hoge = substr(ʸ����, ��Ƭ����, Ĺ��); substr(ʸ����, ��Ƭ����, Ĺ��) = �����ޤ���ʸ����;
@ary_sorted = sort @ary;
sort { $hash{$a} <=> $hash{$b} } keys %hash;
@ary = ('green'); # ( 'green' )
push(@ary, 'blue'); # ( 'green', 'blue' )
unshift(@ary, 'red'); # ( 'red', 'green', 'blue')
$tmp = pop(@ary); # ( 'red', 'green' )
$tmp = shift(@ary); # ( 'green' )$string = 'abc'; $string =~ tr/a/x/; # xbc $string =~ tr/a-z/A-Z/; # XBC
$tmp{'aaa'} = undef;
print exists $tmp{'aaa'}; # 1
print defined $tmp{'aaa'}; # ''open(FP, "$hoge") or die "can't open $hoge"; # �ɤ߹��� open(FP, "> $hoge") or die "can't open $hoge"; # ���� open(FP, ">> $hoge") or die "can't open $hoge"; # �ɲý���
open(FP, "zcat hoge.gz |") or die; # gzip�ե�������ɤ߹��� open(FP, "| gzip > hoge.gz") or die; # ���Ϥ�gzip�ǰ���
open(FP,"<:utf8", $file); # UTF8�Υƥ����Ȥ��ɤ߹��� open(FP,"<:encoding(cp932)", $file); # cp932(shiftjis)�Υƥ����Ȥ��ɤ߹��� open(FP,">:encoding(euc-jp)",$file); # euc-jp�Υƥ����Ȥ�Ф� open(FP,"<:raw", $file); # �Х��ʥ���ɤ߹���
close(FP);
$one_line = <FP>; # ��Ԥ����ɤ߹���ǡ��Ĥ�Ϥ��Τޤ�
@all_line = <FP>; # ���ƤιԤ�����˰��٤�����
while ( $line = <FP> ){ # <FP>���Ǹ�ޤǤ�����EOF�ˤʤ굶�ˤʤ�
... # ���ñ�̤� $line �ν������Ǥ���
}
while( <> ){ # $_ �˰�Ԥ������Ϥ����
...
}print FP "This is test\n";
if ( $num > 0 ) {
my $hoge; # $hoge ��ifʸ�Υ֥��å��������ͭ��
...
}
sub print_a { print $a, "\n" } # ���֥롼��������
$a = 'abc';
&print_a; # 'abc'
{ # ����Ū�˥������פ����
my $a = 'def';
print $a, "\n"; # 'def'
&print_a; # 'abc'
}
{
local $a = 'ghi';
print $a, "\n"; # 'ghi'
&print_a; # 'ghi'
}
&print_a; # 'abc'
foreach ( @ARGV ){
print $_, "\n"; # �ƤӽФ����ΰ����٤ƽ���
}
while(<>){
chomp; # ���Ԥ�Ȥ�
s/abc/xyz/; # abc��xyz���ִ�
if(/str/){ # ʸ�����str�����ä���
print;
}
}
# �ʲ�������
while($_ = <STDIN>){
chomp $_;
$_ =~ s/abc/xyz/;
if($_ =~ /str/){
print STDOUT $_;
}
}$| = 1; # ���Ϥ�Хåե�����ʤ�
����ɽ�� = �ѥ�����ޥå��κݤ˻Ȥ��ü�ʵ��ҷ���
a+ (Ĺ��1�ʾ�� a ����) abc* (ab�θ��c��0�İʾ�³��ʸ����)
[abc] (a �ޤ��� b �ޤ��� c) [0-9]+ (Ĺ��1�ʾ�ο�������) [^0-9A-Z]+ (�����ȥ���ե��٥å���ʸ���ʳ�����)
abc|ace (abc �ޤ��� ace)
.. (Ǥ�դ�ʸ��2��) .+ (Ǥ�դ�ʸ����)
^abc (abc�ǻϤޤ�ʸ����) [0-9]$ (�����ǽ����ʸ����)
^, $, +, -, *, ?, [, ], {, }, (, ), \, ., |a(bc|cb)(de|ed)f (abcdef, abcedf, acbdef, acbedf �Τɤ줫)
[0-9]{1,10} (Ĺ���� 1 �ʾ� 10 �ʲ��ο�����)
[0-9]{3,} (3 ��ʾ�ο�����)
[0-9]{3} (3 ��ο�����)\-?([1-9][0-9]*)?[0-9](\.[0-9]+)? (���̤ο�)
This 'test' isn't successful.
/'.*'/ ('test' isn' �ޥå�.�̾�Ϻ����ʸ����˥ޥå�)
/'.*?'/ ('test' �˥ޥå�)\s��[\t\n\r\f] ��Ʊ��(\t:���֡�\r:������\f:�ʤ���ä�?) \S��[^\t\n\r\f] ��Ʊ��
\w��[a-zA-Z0-9_] ��Ʊ��
\d��[0-9] ��Ʊ��
\b��\w��\W�δ֤˥ޥå�
ʸ�������ɤ�EUC�ʤ��ñ�ʽ����Ϥ��ΤޤޤǤ��롥
��˼���3�ĤΤ���������롥
use LWP::Simple; $doc = get 'http://www.sn.no/libwww-perl/';
Up(P): Home
�ְ㤨�����㤤�����ڥ�ߥ��ʤɤ�
�ޤ�
Last modified: Mon Feb 21 20:01:04 JST 2005