From 1d4b5e6006ca016e82b5d0face1d0feca872a604 Mon Sep 17 00:00:00 2001
From: satomichan <git-kitte.20250824@satomichan.jp>
Date: Thu, 4 Dec 2025 14:06:22 +0900
Subject: [PATCH] =?utf8?q?MA=E3=81=AE=E3=81=BF=E3=82=92=E5=87=BA=E5=8A=9B?=
 =?utf8?q?=E3=81=99=E3=82=8B=E3=82=AA=E3=83=97=E3=82=B7=E3=83=A7=E3=83=B3?=
 =?utf8?q?=20--only-ma=20=E3=82=92=E8=BF=BD=E5=8A=A0.?=
MIME-Version: 1.0
Content-Type: text/plain; charset=utf8
Content-Transfer-Encoding: 8bit

---
 tel2ma.pl | 32 ++++++++++++++++++++++++--------
 1 file changed, 24 insertions(+), 8 deletions(-)

diff --git a/tel2ma.pl b/tel2ma.pl
index a33a0e1..72ed220 100755
--- a/tel2ma.pl
+++ b/tel2ma.pl
@@ -35,31 +35,42 @@ binmode STDOUT, ":utf8";
 binmode STDERR, ":utf8";
 
 use Encode;
+use Getopt::Long qw(:config posix_default no_ignore_case gnu_compat);
 
 
 
+# オプション解析
+my $is_only_ma = 0;
+GetOptions('only-ma' => \$is_only_ma,  );
+
+usage(), exit unless @ARGV;
+
 my( $tel ) = @ARGV;
 $tel =~ s/-//g;
 
+
 if($tel =~ /^(0570)(...)(...)$/){
-    print "$1-$2-$3 ナビダイヤル\n";
+    print "$1-$2-$3 " unless $is_only_ma;
+    print "ナビダイヤル\n";
     exit;
 }elsif($tel =~ /^(0120)(...)(...)$/){
-    print "$1-$2-$3 フリーダイヤル\n";
+    print "$1-$2-$3 " unless $is_only_ma;
+    print "フリーダイヤル\n";
     exit;
 }elsif($tel =~ /^(0800)(...)(....)$/){
-    print "$1-$2-$3 フリーダイヤル\n";
+    print "$1-$2-$3 " unless $is_only_ma;
+    print "フリーダイヤル\n";
     exit;
 }elsif($tel =~ /^(050)(....)(....)$/){
-    print "$1-$2-$3 IP電話\n";
+    print "$1-$2-$3 " unless $is_only_ma;
+    print "IP電話\n";
     exit;
 }elsif($tel =~ /^(0[789]0)(....)(....)$/){
-    print "$1-$2-$3 携帯電話\n";
+    print "$1-$2-$3 " unless $is_only_ma;
+    print "携帯電話\n";
     exit;
 }
 
-usage(), exit unless $tel =~ /^0.{9}$/;
-
 
 foreach my $line (<DATA>) {
     chomp $line;
@@ -83,7 +94,12 @@ foreach my $line (<DATA>) {
                 #加入者番号
                 my $subsc =  substr($tel, -4);
 
-                print "$ac-$exch-$subsc ${ma}MA $munics\n";
+                if( $is_only_ma ){
+                    print "${ma}MA\n";
+                }else{
+                    print "$ac-$exch-$subsc ${ma}MA $munics\n";
+                }
+
                 exit;
             }
 
-- 
2.43.0