とほほのperl入門（利用例編）

2000年5月7日版

    if ($xx > 100) {
        print "大きい\n";
    } else {
        print "小さい\n";
    }

    for ($i = 0; $i < 10; $i++) {
        print "$i\n";
    }

    $str = "ABCDEFG";
    for ($i = 0; $i < length($str); $i++) {
        $c = substr($str, $i, 1);
        print "[$c] ";
    }

    $str =~ s/\s*$//;

    if ($str =~ /^[\x80-\xff]*$/) { print "全角文字が含まれてます"; }

    print "あいうえお\nかきくけこ\n";

    print "<A HREF=\"index.html\">\n";
    print '<A HREF="index.html">';

    print "foo\@abc.xyz";
    print 'foo@abc.xyz';

    printf("%04d/%02d/%02d\n", $year, $month, $mday);

    print <<END_OF_DATA;
    あいうえお
    かきくけこ
    END_OF_DATA

    $old = select(OUT); $| = 1; select($old);

    open(OUT, "> file.txt");
    flock(OUT, 2);
    print OUT ".......\n";
    close(OUT);  # closeすると自動的にアンロックされる

    $xx[0] = "あああ";
    $xx[1] = "いいい";
    print "$xx[0]\n";

    for $yy (@xx) {
        print $yy;
    }

    open(IN, "xxxx.txt");
    while (<IN>) {
        print $_;
    }
    close(IN);

    $size = -s $file;

    $size = -s $file;
    open(IN, $file);
    binmode(IN);              # Windowsで必要
    sysread(IN, $buf, $size);
    close(IN);

    if (-f $file) {
        print "ファイルは存在します。\n";
    }

    open(OUT, ">> outfile.txt");
    flock(OUT, 2);
    truncate(OUT, 0);
    print "....";
    close(OUT);

    sub add {
        return($_[0] + $_[1]);
    }

    $answer = &add(3, 5);

    sub add {
        local($ans);
        $ans = $_[0] + $_[1];
        return($ans);
    }

    for ($i = 0; $i <= $#ARGV; $i++) {
        print "$ARGV[$i]\n";
    }

    $ENV{'TZ'} = "JST-9";

    $SIG{'INT'} = $SIG{'HUP'} = $SIG{'QUIT'} = $SIG{'TERM'} = "sigexit";
    sub sigexit {
        # この部分に作業ファイル削除などの終了処理を記述する
    }