;ファイル( ) @ $ foreachのファイルがあることができない$ファイルを開いてファイルを読むために。 " ) ;私dt @ \u003d ( $ファイル\u003d 〜 " /> Perlの正規表現の質問- UNIXおよびLinuxフォーラム
The UNIX and Linux Forums  

Go Back   UNIXおよびLinuxフォーラム > トップフォーラム > シェルプログラミングとスクリプティング
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午前

 
English Japanese Spanish French German Portuguese Italian Dutch Swedish Russian Norwegian Hungarian Hebrew Danish Bulgarian Greek を搭載 Powered by Google
 
LinkBack スレッドツール このスレッドを検索 スレッドを評価 表示モード
  #1固定リンク)  
Old 2008年7月16日
フィガロ figaro is offline
登録ユーザー
  
 

参加日: 2007年1月
投稿数: 268
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);
}
すべてのファイルの末尾には、最初にこのコードで冗長性をチェックする"です。 csvファイル" (ライン3 )や、その後の文字と数字を探して(ライン6 )ファイル名を解析します。正規表現はどうすれば、 3行目を変更するには、 6行目を削除することができますdtが決定されるような配列@ ?
 

ブックマーク

タグ
perlのPerlの正規表現正規表現

スレッドツール このスレッドを検索
このスレッドを検索

高度な検索
表示モード このスレッド
このスレッド

投稿ルール
あなた ことができない。 新しいスレッドを投稿
あなた ことができない。 返信の投稿
あなた ことができない。 添付ファイルの投稿
あなた ことができない。 自分の投稿を編集

BBコード なる 〜の上に
スマイリー なる 〜の上に
[イメージ] コードは 〜の上に
HTMLコードは、 オフ
トラックバック なる 〜の上に
ピングバック なる 〜の上に
Refbacks なる 〜の上に




すべてGMT -4です。現在の時刻は 07:27午後


提供: vBulletin、著作権© 2000 - 2006、Jelsoft企業株式会社。言語翻訳による電源
vBCredits v1.4著作権© 2007 - 2008 、 PixelFXスタジオ
は、 UNIXおよびLinuxフォーラムのコンテンツ著作権© 1993 〜 2009 。すべての権利を管理しReserved.Ad RedTyger

コンテンツ関連のURLで vBSEO 3.2.0