2007-10-01から1ヶ月間の記事一覧
root権限で以下のコマンドを実行。 # perl -MCPAN -e shell
特殊リテラル 説明 __END__ プログラムの論理的な終わり。これ以降は無視される。ただし，DATAファイルハンドルで読み込むことができる。 __FILE__ 現在のファイル名。 __LINE__ 現在の行番号 __PACHAGE__ 現在のパッケージ名 特殊リテラルを用いたプログラ…
ファイルのコピーを行う。 file1からfile2へコピーする。 use File::Copy; copy("file1", "file2");
CGIでホストのIPを得るためのコード。 #!/usr/bin/perl -w print << "EOL"; Content-type: text/html <html> <body> 現在の接続元IPアドレスは<br> $ENV{'REMOTE_ADDR'}<br> です<br><br> </body> </html> EOL
日付，時刻を取得するコード。 #!/usr/bin/perl -w @time = localtime(time); # 0 秒 0-59 # 1 分 0-59 # 2 時 0-23 # 3 日 1-31 # 4 月 0-11 # 5 年 西暦-1900 # 6 曜日 0-6 # 7 年頭からの日数 0-365 # 8 サマータイムフラグ 0,1（サマータイム有効なら1）…
