Snippets

sironekotoro 最悪

Updated by sironekotoro
View revision

File saiaku_regex.pl Modified

  • Ignore whitespace
  • Hide word diff 
 
 # 参考 https://twitter.com/6Lgug/status/1011529645559173120
 
-# 変換表を用意する
+# ハッシュテーブル（変換表）を用意する
 my %hash = (
     '１' => 1,
     '２' => 2,

File saiaku_tr.pl Modified

  • Ignore whitespace
  • Hide word diff 
     if ( $line =~ /[0-9]年[A-Z]組/ ) {
         # 何もしない
     }
-    elsif ( $line =~ /(\d)年(\w)/ ) {
-        $line = "$1年$2組";
-    }
-    elsif ( $line =~ /(\d)(\w)/ ) {
+    elsif ( $line =~ /(\d)年?(\w)/ ) {
         $line = "$1年$2組";
     }
Updated by sironekotoro
View revision

File saiaku_regex.pl Modified

  • Ignore whitespace
  • Hide word diff 
 use strict;
 use warnings;
-use utf8;   # プログラム中に２バイト文字を利用するときに利用
-use Encode; # ２バイト文字を出力するときに利用
+use utf8;   # プログラム中にマルチバイト文字を利用するときに利用
+use Encode; # マルチバイト文字を出力するときに利用
 
 # 参考 https://twitter.com/6Lgug/status/1011529645559173120
 
 
     # 文字列を連結する
     my $edited = $year . "年" . $class . "組";
-    # ２バイト文字を出力するときはエンコード処理をする
+    # マルチバイト文字を出力するときはエンコード処理をする
     print encode ( 'utf8', $edited ), "\n";
 
 }

File saiaku_tr.pl Modified

  • Ignore whitespace
  • Hide word diff 
 use strict;
 use warnings;
-use utf8;  # プログラム中に２バイト文字を利用するときに利用
-use Encode;# ２バイト文字を出力するときに利用
+use utf8;  # プログラム中にマルチバイト文字を利用するときに利用
+use Encode;# マルチバイト文字を出力するときに利用
 
 # 参考 https://twitter.com/6Lgug/status/1011529645559173120
Created by sironekotoro
View revision

File saiaku_regex.pl Added

  • Ignore whitespace
  • Hide word diff 
+use strict;
+use warnings;
+use utf8;   # プログラム中に２バイト文字を利用するときに利用
+use Encode; # ２バイト文字を出力するときに利用
+
+# 参考 https://twitter.com/6Lgug/status/1011529645559173120
+
+# 変換表を用意する
+my %hash = (
+    '１' => 1,
+    '２' => 2,
+    '３' => 3,
+    '４' => 4,
+    '５' => 5,
+    '６' => 6,
+    '７' => 7,
+    '８' => 8,
+    '９' => 9,
+    'a'   => 'A',
+    'Ｂ' => 'B',
+    'Ｃ' => 'C',
+    'Ｄ' => 'D',
+);
+
+# ファイル下部の__DATA__以降から1行ずつ読む
+for my $line (<DATA>) {
+    chomp $line;
+
+    # 正規表現でキャプチャ
+    $line =~ /(\d)[年|ー]?(\w)組?/;
+
+    my $year = 'DUMMY';
+
+    # ハッシュテーブルを参照する
+    # keyがあればvalueが返り、if文の条件が正となる
+    if ( $hash{$1} ) {
+        $year = $hash{$1};
+    }
+    else {
+        # ハッシュテーブルにない場合には、
+        # 半角と判断してそのまま代入する
+        $year = $1;
+    }
+
+    my $class = 'DUMMY';
+    if ( $hash{$2} ) {
+        $class = $hash{$2};
+    }
+    else {
+        $class = $2;
+    }
+
+    # 文字列を連結する
+    my $edited = $year . "年" . $class . "組";
+    # ２バイト文字を出力するときはエンコード処理をする
+    print encode ( 'utf8', $edited ), "\n";
+
+}
+
+__DATA__
+1A
+1ーB
+１ーＣ
+１ーＤ
+１年E組
+３年A組
+３年Ｂ組
+3年Ｃ組
+3年Ｄ組
+4年a組
+４年B組
+４年Ｃ組

File saiaku_tr.pl Added

  • Ignore whitespace
  • Hide word diff 
+use strict;
+use warnings;
+use utf8;  # プログラム中に２バイト文字を利用するときに利用
+use Encode;# ２バイト文字を出力するときに利用
+
+# 参考 https://twitter.com/6Lgug/status/1011529645559173120
+
+for my $line (<DATA>) {
+    chomp $line;
+
+    # tr演算子を使う
+    $line =~ tr/０-９ａ-ｚＡ-Ｚa-z/0-9A-ZA-ZA-Z/;
+    $line =~ tr/ー/年/;
+
+    if ( $line =~ /[0-9]年[A-Z]組/ ) {
+        # 何もしない
+    }
+    elsif ( $line =~ /(\d)年(\w)/ ) {
+        $line = "$1年$2組";
+    }
+    elsif ( $line =~ /(\d)(\w)/ ) {
+        $line = "$1年$2組";
+    }
+
+    print encode('utf8',$line), "\n";
+}
+
+__DATA__
+1A
+1ーB
+１ーＣ
+１ーＤ
+１年E組
+３年A組
+３年Ｂ組
+3年Ｃ組
+3年Ｄ組
+4年a組
+４年B組
+４年Ｃ組

File worst.txt Added

  • Ignore whitespace
  • Hide word diff 
+# 参考 https://twitter.com/6Lgug/status/1011529645559173120
+1A
+1ーB
+１ーＣ
+１ーＤ
+１年E組
+３年A組
+３年Ｂ組
+3年Ｃ組
+3年Ｄ組
+4年a組
+４年B組
+４年Ｃ組
HTTPS SSH

You can clone a snippet to your computer for local editing. Learn more.