→正規表現
1. QueryはCGIモジュールで処理する 2. 文字コードはEncodeモジュールで処理する 3. 文字コードを固定できない場合は、QueryまたはPATH-INFOに文字コード情報を含める 1. 決め打ちできる場合は、UTF-8にしておく
package MyApp; use strict; our $VARIABLE=1;
package main; $MyApp::VARIABLE;
requires('Hoge'); Hogeというモジュールが必要。第二引数でヴァージョンを指定する
my $w =sprintf( '%02d', $i );
i -> case insensitive 大文字小文字を無視する g -> 毎回評価する なぜかよく忘れるので…
use Test::Harness::Assert; assert( 条件 )
open(IN, $filename ); while (<IN>) { print $_ ; } close(IN);
opendir(DIR, "."); while ($file = readdir(DIR)) { if ($file =~ /<適当なパターン>/ ) { #適当な作業 } } closedir(DIR);
sub prc_all_dir { my $dir = shift; #print 'open' . '['. $dir ."]\n"; opendir(DIR, $dir ) or die "can't open directory [$dir] error\n" ; my @entries = readdir( DIR ); closedir(DIR); for ( @entries ) { # '.' と '..' はパス next if $_ eq '.'; next if $_ eq '..'; my $entry = $dir . '/' .$_; #ディレクトリだったら再帰する if ( -d $entry ) { #printf "Dir = %s\n", $entry; #各ディレクトリ内の処理 prc_all_dir( $entry ); #再帰 } #ファイルのとき else { } } }