;ファイル( ) @ $ foreachのファイルがあることができない$ファイルを開いてファイルを読むために。 " ) ;私dt @ \u003d ( $ファイル\u003d 〜 " />
![]() |
|
|
Googleのunix.com
|
|||||||
| シェルプログラミングとスクリプティング KSH 、 CSH 、 shに、 bashの、はPerl 、 PHPは、削除するsed 、 Awkの、他のシェルスクリプトやシェルスクリプト言語についての質問の投稿はこちら。 |
その他のUNIXおよびLinuxフォーラムトピックは参考にすること
|
||||
| スレッド | スレッドスターター | フォーラム | 返信 | 最後の投稿 |
| 正規表現の質問 | xiamin | シェルプログラミングとスクリプティング | 3 | 2009年3月5日 02:53午前 |
| Perlの正規表現の仕方-括弧のマッチング | cvp | シェルプログラミングとスクリプティング | 7 | 2009年2月27日 05:38午後 |
| この行はどうすればPerlの正規表現を使用してストリップください。 | ramky79 | シェルプログラミングとスクリプティング | 1 | 2008年3月18日 12:10午後 |
| 正規表現の質問 | arushunter | シェルプログラミングとスクリプティング | 8 | 2007年1月4日 05:49午後 |
| 正規表現の質問 | rocketkids | UNIXのダミー質問と回答のため | 6 | 2004年2月12日 05:49午前 |
|
|
LinkBack | スレッドツール | このスレッドを検索 | スレッドを評価 | 表示モード |
|
||||
|
Perlの正規表現の質問
私は以下のコードを持って:
コード:
#!/usr/bin/perl -w
@files = <*.csv>;
foreach $file (@files) {
open(FH, $file) || die("Error: Cannot open file $file for reading.");
my @dt = ($file =~ /^(\w+).(\d{6})\.csv$/);
while (<FH>) {
print "@dt[0] $_\n";
}
close(FH);
}
|