Perlについての質問箱 30箱目

Perlについての質問箱 ..

■コピペモード
□スレを通常表示
□オプションモード
□このｽﾚｯﾄﾞのURL
■項目テキスト

391:デフォルトの名無しさん
 07/04/29 03:40:49 
少なくともループ構造にするべきだと思う

392:デフォルトの名無しさん
 07/04/29 04:06:37 
>>390 
perldoc　-f　pack　して目を皿のようにして熟読せい。 
 
The　"/"　template　character　allows　packing　and　unpacking 
of　strings　where　the　packed　structure　contains　a　byte 
count　followed　by　the　string　itself.　You　write 
*length-item*"/"*string-item*.

393:デフォルトの名無しさん
 07/04/29 05:12:56 
>>392 
あああああ、そんなテンプレートがあったんですね。 
日本語の5.6ベースのman見てたので気づきませんでした… 
ありがとうございます。

394:デフォルトの名無しさん
 07/04/30 02:59:39 
>>393 
あ、すまん。 
5.6からの拡張だと思ってたが、違ったか(393には問題ないみたいでよかった)。

395:デフォルトの名無しさん
 07/05/01 17:38:05 
ファイル内の文字列を置換するスクリプトを書いているところなのですが、 
「置換する」「置換しない」(飛ばす)「残り全て置換」「キャンセル」という 
処理を行うにあたって、見つけた文字列を置換せずに飛ばして次を置換する 
方法が思いつきません。置換しないテキストは適当な文字列に置換しておいて 
最後に戻すという方法も考えたのですが、あまりスマートではないと思いまし 
た。何かよい方法があったら、お知恵をお貸しください。 
 
while($text =~ /($regexp)/) { 
  if($all == 0) { 
    $before = $1; 
    $after = $1; 
    $after =~ s/$regexp/$replace/m; 
    print "置換前:\n$before\n置換後:\n$after\n"; 
    do { 
      print "置換する? [y]es [n]o [a]残り全て [g]キャンセル "; 
      $key = <STDIN>; 
      chomp($key); 
    } while ($key ne "y" and $key ne "n" and $key ne "a" and $key ne "g"); 
    if($key eq "y"){ 
      $text =~ s/$regexp/$replace/m; 
    }elsif($key eq "n"){ 
      # ここをどうする？ 
    }elsif($key eq "a"){ 
      $text =~ s/$regexp/$replace/gm; 
      $all = 1; 
    }else{ exit; } 
  }elsif($all == 1) { 
    $text =~ s/$regexp/$replace/gm; 
  } 
}

次ページ