Perl 「 モジュール 」 CGI 一時ファイルにアクセスする tmpFileName() (0x121)
目次 - Perl Index Theme Perl について、復習を兼ねて断片的な情報を掲載して行く連載その 0x121 回。 CGI.pm で、アップロードされるファイルの一時ファイルにアクセス可能なメソッド「 tmpFileName() 」を確認する。 一時ファイル 「 一時ファイル 」は、英語で「 temporary file 」( テンポラリファイル ) と呼ばれます。 英語の「 temporary 」は、形容詞として「 一時の 」「 仮の 」や「 儚い 」( はかない ) の意味を持ちます。名詞として利用する場合は、「 臨時雇いの人 」を意味します。 このことから、「 一時ファイル 」は、「 一時的に利用するファイル 」または「 仮で利用するファイル 」であることが推測出来ます。 「 一時ファイルは 」時として「 ワークファイル 」( work file ) とも呼ばれることが
Perl講座: ファイル入出力
ファイルオープンとクローズ- open, close - print, printfでの出力 ファイルテスト演算子 ファイルロック - flock - ファイルオープンとクローズ- open, close - Perlに限らず、一般的にプログラムではファイルからデータを読み込み、 処理をした結果をファイルに出力します。 「繰り返し - while、for -」の ページでも簡単に紹介しましたが、ここではファイルからデータを 読み込むために必要なファイルオープンと、 ファイルをオープンし処理が終了した後に行う ファイルクローズについて説明します。 ファイルからデータを読み込むためには、まずファイルを開かなければいけません。そのためには、openという関数を使います。
ディレクトリ・ファイル一覧の取得方法 - Perlテックラボ - [SMART]
Perlで任意のディレクトリにあるファイル一覧を取得する際は、いくつかの方法があります。今回はglob()とopendir()で取得する方法をご紹介します。 glob()でファイルの一覧を取得 簡単なのはglob()を使ったファイルの取得方法です。 glog()は カレントディレクトリにあるファイル名やディレクトリ名を取得することができます。 # 引数にアスタリスク( * )を指定すると、. で始まらないすべてのファイル一覧を取得 my @file = glob "*"; print join( "\t", @file ), "\n"; "* .*" . で始まるファイルも対象にする場合は引数に"* .*"を指定 my @file2 = glob "* .*"; print join( "\t", @file2 ), "\n"; glob()の引数に拡張子を指定すると、指定した拡張子のファ
Perl基礎入門 | KentWeb
プログラムを記述する際に、覚え書きという位置づけ等で、（プログラムには解釈されない形で）メモ情報を残しておきたいことがあります。 それを「コメント」と呼びます。 Perlでは、シャープ ( # ) から行末までを「コメント」として扱われ、プログラムの実行上無視されます。これを「コメントアウト」といいます。 $data = 'I am a boy'; # データを記述 print "$data\n"; 上記のコードの場合、3行目がすべてコメントとして扱われます。 コメントは、文の途中に記述しても構いません。その場合は、# から、行末までがコメントになります。 $date = 'I am a boy'; print "$data\n"; # データを記述 また、応用的な記述方法として、複数行をコメントアウトする場合には、次のように =pod から =cut を記述することで、その範囲がすべてコ
該当フォルダ内のファイル名を取得する方法 - コードを舐める日々
Perlを学び始めて1週間強といったところで、Perlは本当に驚く書き方が多い。 #!/usr/bin/perl use strict; use warnings; my $logdir = "./log"; #読み込む該当フォルダ名 opendir(DIR, $logdir); my @FILES = readdir(DIR); closedir(DIR); print @FILES; しかし、opendir関数を使うことはナンセンスらしい。 しかも隠れファイル（.とか）まで余分に読み込んでしまう。 この記事を読んで試してみた。 スリムに書くと下記の通り。 #!/usr/bin/perl use strict; use warnings; while(<./log/*>){ print $_."\n"; } 簡潔にできてしまう。 $_を省略したものでもおｋ。 #!/usr/bin/per
perlopentut - Perl でいろんなものを開くためのチュートリアル - perldoc.jp
Perl has two simple, built-in ways to open files: the shell way for convenience, and the C way for precision. The shell way also has 2- and 3-argument forms, which have different semantics for handling the filename. The choice is yours. Perl には、ファイルを開くための 2 つの単純な組み込みの手段があります: 利便性のためのシェル風の方法と、正確性のための C 風の方法です。 シェル風の方法には 2 引数と 3 引数があり、ファイル名の扱いに関して 異なった動作をします。 選択はあなた次第です。 シェル風に開く¶ Perl's open functio
Perl から INIファイルを使う覚え書き 「Config::Tiny」 - 知らないことがあってもへっちゃらさ
Perl から INIファイルを利用しようとした場合、以前は Config::INI::Simple ってモジュールを使ってたんですが、今 CPAN を検索したら無くなってるじゃないですか・・・orz ActivePerl（v5.8.8） の PPM にはまだ入ってましたが、CPAN から消えた（理由はともかく）モジュールをわざわざ探してきて使うのもどうよ？と思うわけで、別のモジュールを探してみました。 それで見つけたのが Config::Tiny というモジュールです。ファイルの読み込みはもちろん、書き出しもできるし、INIファイル内の余分な空白も上手に省いてくれるみたいでいい感じです。 また、通常の INIファイルだと ; で始まる行。もしくは、行の ; 以降がコメント扱いなんだそうですが、Config::Tiny は ; に加えて # もコメントの開始として認識してくれます。 ちなみ
ファイルを1行ずつ読み込む。readline 関数。 - サンプルコードによる Perl 入門
Perl › 演算子 › here ファイルを一行づつ読み込むには行入力演算子「<>」を使用します。読み込む行がなくなると、undefを返却します。 my $line = <$fh>; 他の演算子と異なり「<」と「>」の間にファイルハンドルを記述することに注意してください。 通常は、while関数と組み合わせて、繰り返して行を読み込むのに利用します。 while(my $line = <$fh>) { # ... } 考え深い方は、上記のように書いた場合は、もし「0」などの偽の値が返ってきた場合は、正しく動かないんじゃないかと感じるのではないでしょうか。行の途中は、改行コードが入りますから、「0」が返ることはありませんが、末尾の場合は「0」が返ってくる可能性があります。 でも、心配しないでください。ファイル演算子は、whileと組み合わされて使う場合のみ、次のように解釈されるからです。 w
perl で touch | 裏表(Phinloda のもう裏だか表だか分からないページ)
一定期間更新がないため広告を表示しています
open関数：ファイルを開く
ファイル名及びファイルハンドルを指定してファイルを開きファイルハンドルを 割り当てます。 パラメータ: FILEHANDLE ファイルハンドル EXPR ファイル名 MODE モード 戻り値： ファイルを開くことに成功したら真(true)、失敗したらundef 1 番目の引数にはファイルとのコネクションに対して割り当てるファイルハンドル名を指定します。 2 番目の引数にはファイル名を指定します。 モードはファイル名に含めて記述することもできますが、別に指定することもできます。別に指定する場合は 2 番目の引数がモード、 3 番目の引数がファイル名となります。 モードはファイルをどのように開くのかを指定します。以下のモードが指定可能です。 記号モードファイルが存在した場合ファイルが存在しない場合
ちゃんとconfigファイルを作らないと死ねる→PerlならConfig::Simpleで生きていける - oranie's blog
[追記] ちょっとconfigの記述に間違い見つけたので修正。 しょぼいメモです。 「しょぼいバッチ処理だからDB接続用のパラメータとか適当に書いておくか( ´ー｀)y-~」 → 「こういう処理も足しておくか(´∀｀)」「段々長くなってきたからpmファイルで分割するか(｀・ω・)」 →何度か繰り返す 気づいたら全部で使う設定値を色んなファイルに書いている＞＜ という事は僕みたいな底辺だと良くやる訳ですよ。で、configファイル作らなきゃってやろうとしたんですが、 ばばーって our $database = "hogehoge"; our $user = "fugafuga"; our $pass = "mogamoga"; って書いてrequireで読み込もうとしたりで良いかな？って思ったんですけど、なんかグローバル変数とか使うのやじゃないですか。 なんか使ったら「プークスクス」ってされ
perl - glob,readdir, and regexp : 404 Blog Not Found
2008年05月31日00:30 カテゴリLightweight Languages perl - glob,readdir, and regexp なかなか良い仕事をしてくれているid:perlcodesampleだが、今回のこのタイトルはどうかと思う。 カレントディレクトリのファイル一覧を取得する。 glob - サンプルコードによる Perl 入門 というのも、glob()で得られるのはカレントディレクトリのファイル一覧とは限らないし、何よりファイル一覧を取るにはreaddir()という関数が別に存在するからだ。 例えば、以下のようにした場合、得られるのはカレントディレクトリではなくルートディレクトリにあるファイル一覧だ。 [codepad] print "$_\n" for </*> glob("*")または<*>は、以下とほぼ等価である。 [codepad] my @files
Linux::Inotify2 でディレクトリを監視してなんかする - black-mountain-sideの日記
あるディレクトリにファイルが置かれたら何かしたい、 みたいにディレクトリを監視して処理を行いたい場合、Linux::Inotify2 が便利ですね。 もちろん、inotify が利用できる環境でしか使えませんが。 下は、ホームディレクトリの”backup”ディレクトリにファイルを置くと"backup_server"にそのファイルをscpします。 watch_and_scp.pl #!/usr/bin/perl use strict; use warnings; use Linux::Inotify2; my $watch_dir = $ENV{HOME} . '/backup'; my $inotify = Linux::Inotify2->new or die $!; $inotify->watch( $watch_dir, IN_CLOSE_WRITE | IN_MOVED_TO, s
perlopentut - Perl でいろんなものを開くためのチュートリアル - perldoc.jp
Perl has two simple, built-in ways to open files: the shell way for convenience, and the C way for precision. The shell way also has 2- and 3-argument forms, which have different semantics for handling the filename. The choice is yours. Perl には、ファイルを開くための 2 つの単純な組み込みの手段があります: 利便性のためのシェル風の方法と、正確性のための C 風の方法です。 シェル風の方法には 2 引数と 3 引数があり、ファイル名の扱いに関して 異なった動作をします。 選択はあなた次第です。 シェル風に開く¶ Perl's open functio
binmode
説明 指定したファイル・ハンドルのファイルをバイナリ・モードで扱うようにします。 レイヤー（I/O層）を指定することで，I／O時の動作を変更することができます。 使用例 #!/usr/bin/perl use strict; use warnings; my $filename = 'data.bat'; open my $fh, "<", $filename or die "$filename:$!"; binmode $fh; my $data = ''; while (read $fh, my $buf, 4) { $data .= $buf; } close $fh;
リリース、障害情報などのサービスのお知らせ
最新の人気エントリーの配信
j次のブックマーク
k前のブックマーク
lあとで読む
eコメント一覧を開く
oページを開く
http://www.g-ishihara.com/perl/file07.html
Perlあれこれ/ファイルダウンロード - 笑猫酒家
Perlゼミ(サンプルコードPerl入門)
http://www.g-ishihara.com/perl/file10.html
サービス終了のお知らせ