TechNote

ユーザ用ツール

サイト用ツール

現在位置: start » perl » tips
perl:tips

差分

このページの2つのバージョン間の差分を表示します。

この比較画面へのリンク

両方とも前のリビジョン前のリビジョン
次のリビジョン		前のリビジョン
perl:tips [2018/07/20 14:04] – [Memo2] takaperl:tips [2018/07/20 14:06] (現在) – [マッチした語句を強調する] taka
行 177: 行 177:
  
 <sxh perl> <sxh perl>
-my $string    = "AAABBBCCC<br />DDDEEEFFF<br />GGGHHHIII";+my $string    = "AAABBBCCC<br>DDDEEEFFF<br>GGGHHHIII";
 my @keyWords = ("AAA","EEE","III"); my @keyWords = ("AAA","EEE","III");
  
行 194: 行 194:
   }   }
  
-  $string = join '', @strings;+  $string = join "", @strings;
 } }
  
行 209: 行 209:
  
 <code> <code>
-<b>AAA</b>BBBCCC<br />DDD<b>EEE</b>FFF<br />GGGHHH<b>III</b>+<b>AAA</b>BBBCCC<br>DDD<b>EEE</b>FFF<br>GGGHHH<b>III</b>
 </code> </code>
  
行 217: 行 217:
  
 <sxh perl> <sxh perl>
-my $string  = "AAABBBCCC<br />DDDEEEFFF<br />GGGHHHIII";+my $string  = "AAABBBCCC<br>DDDEEEFFF<br>GGGHHHIII";
 my @strings = split /(<.*?>)/, $string; my @strings = split /(<.*?>)/, $string;
  
行 228: 行 228:
  
 <code> <code>
-AAABBBCCC<br />DDDEEEFFF<br />GGGHHHIII+AAABBBCCC<br>DDDEEEFFF<br>GGGHHHIII
 </code> </code>
  
perl/tips.1532063088.txt.gz · 最終更新: 2018/07/20 14:04 by taka