Perlで、フォルダ内のファイル名を一括変更するには · DQNEO日記for (glob("log*.txt")) { my $old_name = $_; s/(^.+)([0-9][0-9][0-9][0-9])([0-9][0-9])([0-9][0-9]).txt/$1-$2-$3-$4.txt/; my $new_name = $_; rename $old_name, $new_name; } 参考：Perlでファイル名を変更(リネーム)するにはrename
unlink関数 - ファイルを削除する - Perl入門ゼミ
Perl › 関数 › here unlink関数を使用すると、ファイルを削除することができます。戻り値には、削除したファイルの個数が返ってきます。 unlink $file; サンプル ファイルを削除するサンプルです。 use strict; use warnings; use Fcntl; # ファイルを削除する。 # 準備のためにファイル作成。 my $file = "sample_20080520_$$.txt"; sysopen(my $fh, $file, O_CREAT | O_WRONLY | O_EXCL) or die "$file を作成することができません。: $!"; close( $fh ); print "準備: '$file'が作成されました。\n\n"; print "1: ファイルを削除する。\n"; if (unlink $file) { print
File Shredder
File Shredder is free desktop application for shredding (destroying) unwanted files beyond recovery With File Shredder you can remove files from your hard drive without fear they could be recovered. There are quite a few software tools today for retrieval of deleted files under Windows OS. Those tools, often referred to as "file recovery" software, are taking advantage of shortcoming of WIndows "d
画像ファイルのリネーム (Image::ExifToolを使ってみました) - bonlife
会社ではこっそりとEXCEL VBAを勉強したりしているbonlifeです。oo4oでOracleにアクセスしてデータを取得し、新しいブックを作成して保存、みたいなツールを作って自己満足。(その件は後で整理してみます。) さてさて、「初めてのPerl」の練習問題も終わってないのに、ちょっとした用事があったのでPerlでツールを作ってみました。よくあるリネームツールです。GUIベースのツールで簡単に出来ることを敢えてPerlで書くのはPerlっ子としてはアウトかもしれませんが、勉強中の身、ということで勘弁願いたいです。 おそらく出来るであろうことは、下記の通り。 画像ファイルのファイル名をファイル作成日時(YYYYMMDD_hhmmss)にすること (Image::ExifToolの力) ディレクトリを引数に指定した場合、そのディレクトリ以下のファイル全部を対象に処理 (File::Find
ファイル名から拡張子を取り出す - Perl入門ゼミ
Perl › ファイル操作 › here ファイル名から、拡張子を取り出すにはFile::Basenameモジュールのfileparseの第二引数で拡張子を指定します。戻り値の三つ目で、拡張子が得られます。 use File::Basename; my ($base_name, $dir, $suffix) = fileparse($file_txt, '.txt'); File::Basename モジュールの fileparse 関数の第2引数に、拡張子名を指定することで、拡張子を取り出すことができます。 正規表現を使って、拡張子のパターンを指定することもできます。 use File::Basename; my $regex_suffix = qr/\.[^\.]+$/; my $suffix_txt = ( fileparse( $file_txt, $regex_suffix )
Perlモジュール/File::Slurp::CSV - Walrus, Digit.
CSVファイルを丸ごと読み込んだり、一気に書き出したりするためのモジュール。 「ファイル丸呑み」モジュール、CpanModule:File::Slurpのサブモジュールで、同モジュールの各関数に加え、read_csv、write_csv、append_csvの3つの関数を利用できるようになります。 File::Slurpでのファイル読み書きに、大崎氏のPerlメモのCSV操作を組み合わせたものです。 なお、双子の姉妹品にタブ区切りテキスト用にちょっとアレンジしたPerlモジュール/File::Slurp::TSVがあります。 File::Slurp::CSVはCPANにもActivePerlのリポジトリにも登録されてない野良モジュールです。以下のソースを使用してください。 package File::Slurp::CSV; use base 'Exporter'; use File::Sl
CGI::Sessionのファイル保存先を階層化する < Blogo el Ermitejo
問題 CGI::Sessionモジュールで、セッションを生ファイルに格納している。指定したディレクトリ配下に全てのファイルを格納するのではなく、セッションIDの頭文字を付けた子ディレクトリの下にばらして保存したい。つまり、 /foo/bar/session a07cc22875335fd43b139d7a560687f7.obj 8b82046493d32b808c6ff3b731414fc4.obj ではなく、 /foo/bar/session/a a07cc22875335fd43b139d7a560687f7.obj /foo/bar/session/8 8b82046493d32b808c6ff3b731414fc4.obj のように。 解法 CGI::Session::Driver::fileモジュールのinitおよび_fileメソッドにパッチを当てます。詳細は以下の通りです。
複数階層のディレクトリを作成する - Perl入門ゼミ
Perl › ファイル操作 › here 複数階層のディレクトリを作成するにはFile::Pathモジュールのmkpath関数を使用します。 use File::Path 'mkpath'; mkpath $dir_multi_level; 複数階層のディレクトリを作成するには、File::Path モジュールのmkpath関数を使います。 サンプル 複数階層のディレクトリを作成するサンプルです。 use strict; use warnings; use File::Path 'mkpath'; # 複数階層のディレクトリを作成する。 my $dir_multi_level = "dir_20080524_$$/dir1"; print "1: 複数階層のディレクトリを作成する。\n"; mkpath($dir_multi_level); Perl › ファイル操作 › here
CGI.pmのアップロード後のファイル処理を高速に行う
CGI.pmのアップロード後のファイル処理を高速に行う スポンサードリンク Tweet とりあえず手っ取り早くファイルアップローダを作らなくちゃならなくなったとき用の汎用ルーチンとしてCGI.pmを使ったアップローダのソースをあげておこうと思いました。自分用のメモだけど単純にアップロード後の処理が高速なので参考にされるといいかと思います。 fillename:upload.cgi #!/usr/bin/perl use strict; use warnings; use CGI; use CGI::Carp qw(fatalsToBrowser); use File::Copy; use File::Basename; my $upload_dir = 'upload'; # 保存先のディレクトリ my $q = CGI->new(); # CGIオブジェクト my $fh = $q->u
拍写真被弄到高潮H文,2022国产精品自在线拍国产,SM重口性奴小说,Y11111少妇无码电影
拍写真被弄到高潮H文,2022国产精品自在线拍国产,SM重口性奴小说,Y11111少妇无码电影,夜色阁亚洲一区二区三区,裸体COS卖肉福利无码视频,亚洲一区二区三区高清在线观看,HDSEXTUBE9熟妇俱乐部,国内丰满熟女出轨VIDEOS
Vim 6でファイルの自動保存
Vim 6ユーザのみなさんに， 保存コマンド:wを一々打たなくともファイルを保存する方法を解説するページです． Vimスクリプトの案内も兼ねています． （私もそんなに詳しいわけではありませんが．） 数々のユニークなプロジェクトで著明な高林さんの「Emacsでファイルの自動保存 (auto-save-buffers) www.namazu.org/~satoru/auto-save」 というページに触発されて書きました． 基本 以下のVimスクリプトを$HOME/.vimrcに書き込んで下さい． autocmd CursorHold * update set updatetime=500 基本的にこれだけです． ただしVimをすでに使い倒されている方には少々問題があるでしょう． 以下，その理由の（まだ使い倒されてない方のための）解説を． Vimにおいてユーザの入力
窓の杜 - 【REVIEW】指定したファイルについての情報を徹底的に調査できる「FileAlyzer」
「FileAlyzer」は、指定したファイルの各種情報を徹底的に調査できるソフト。Windows 95/98/Me/NT/2000/XP/Vistaに対応する寄付歓迎のフリーソフトで、作者のWebサイトからダウンロードできる。 本ソフトは、指定したファイルの作成日や更新日、ファイルサイズなどの基本情報はもちろん、ハッシュ値や16進ダンプ、ExifやID3などの各種タグ情報も同時に取得可能で、テキストファイルやメディアファイルのプレビューなどもできる。このうち基本情報やハッシュ値は、クリップボードにコピー可能。 調査するファイルは、本ソフトを起動すると表れるダイアログで指定する仕組み。また、ファイルの右クリックメニューに専用の項目を追加したり、［送る］メニューに登録して、エクスプローラ上から調査を行うことも可能。また、本ソフトの［File］－［Open runnning process］メニ
Manpage of DU
Section: FSF (1) Updated: November 1998 Index JM Home Page roff page 名前 du - ディスク使用量を表示する 書式 du [オプション]... [FILE]... 説明 引数で指定した各FILEのディスク使用量を表示する。 引数がディレクトリの時は再帰的に表示する。 -a, --all ディレクトリだけでなく全てのファイルについてディスク使用量を表示する。 --block-size=SIZE SIZEバイトのブロック単位を使う。 -b, --bytes バイト単位で表示する。 -c, --total 総計を表示する。 -D, --dereference-args 引数で指定したシンボリックリンクをたどる。 (訳注: 他のシンボリックリンクには影響しない。 このオプ ションは、大抵シンボリックリンクになっている /usr/
リリース、障害情報などのサービスのお知らせ
最新の人気エントリーの配信
j次のブックマーク
k前のブックマーク
lあとで読む
eコメント一覧を開く
oページを開く
サムネールファイルの名前をつける。(split,File::Basename): Xo式 実験室（labo.xo-ox.net）
http://egg.bomcity.com/wiki?File%3A%3ABasename
PHPのmkdirでディレクトリを作成し、そこPHPプログラムから画像ファイルをアップロードしたのですが、その画像ファイルにアクセスすると、You don't have permis…
water::days: CGI::Upload bug on MacOSX
http://www.hidekik.com/cookbook/p2h.cgi?id=upload
Perl安全に一時ファイル（テンポラリファイル）を開く File::Temp｜Perlプログラムメモ｜プログラムメモ
perl-mongers.org