カンマ区切りの配列から更に区切る方法は

ＣＧＩの関数を色々べんきょうさせてもらったら、何やら　split という関数を使うみたいなのですがさっぱりわからない状態で困ってます。

現在　872（通し番号）,testo（ＩＤ）,0000（ＰＷ）,TESTO（名前）,1（性別）,1960-4-12（生年月日）,1493291623（取得した時刻）,[e-mail]（E-mail）,07752123456,080123456789,422-0000○○県○○市○○町123-456,,dm

というもちろんファイル内は（）のは書いてません、上記にあります（E-mail）の次に07752123456
ありますが、これを077,5212,3456 と区切ってなおかつ　それをテキストボックスに代入したいのですが、,07752123456, を　077,5212,3456 と区切る方法も分からずお手上げ状態です。

ちなみに代入先のnameは　それぞれ　$yb $kn $ad と入れたいのですが、一体どうすればできるんでしょうか？　ご教示頂けますか？　とある編集モードで使いたいと思ってます　宜しくお願いします

質問者からの補足コメント

• 

  すいません　あまり変わらないかしれませんが、区切りたいのは住所の方でした。
  
  つまり ,123-4567,○○県○○市○○町123-456,, を ,123-4567,○○県○,○○市○○町123-456,,
  
  と郵便番号を１つのテキストボックスに　都道府県も一つのプルダウンボックスに　そして以下の住所にも1つのテキストボックスに代入したいと考えてます　お詳しい方ご教示くださいませ

    補足日時：2017/04/28 01:34

• 

  4972,1493262254,1,2017,12,11,1,1500,intyou,権平,1,,,0,5,0000,,,dm
  4973,1493262296,1,2017,5,6,6,1030,intyou,権平,1,,,0,5,0000,,,dm
  4974,1493289148,1,2017,4,26,3,1030,intyou,権平,1,,,0,5,0000,,,dm
  
  このように　4972　4973 と順番に並んでいますが　4974は　2017年4月26日と一番日付が早いのですが、4974が優先されて一番最後に来てしまっています。

    補足日時：2017/04/28 03:40

No.3 回答者： Ogre7077 回答日時： 2017/04/30 13:57

単純な4桁区切りをするなら

$text = '07752123456';
$text =~ /(\d+)(?=(\d{4})+$)/$1,/g;
$text =~ /^(045)(?=(\d{4})+$)/$1,/g;

区切った値を別々の変数に入れるなら
my ($a,$b,$c) = split(/,/,$text)

特定パターン文字列を区切るなら
$text = '○○県○○市○○町123-456';
$text =~ s/^(.+?[都道府県])/$1,/g;

ただし

電話番号を区切るならば、市外局番のパターンにすべて対応させましょう
http://www.soumu.go.jp/main_sosiki/joho_tsusin/t …
時々パターンに変更があるので、総務省の発表には注意しましょう
http://www.soumu.go.jp/main_sosiki/joho_tsusin/t …
最近では携帯電話やIP電話も一般化したので、特番にも対応させましょう
https://ja.wikipedia.org/wiki/%E6%97%A5%E6%9C%AC …

頑張ってください

この回答へのお礼

詳しく教えていただきありがとうございます、アドバイスを糧に頑張ってみます！

お礼日時：2017/05/04 16:50

No.2 回答者： Tacosan 回答日時： 2017/04/27 23:35

もう 1ついうと, いかなる理由によって「07752123456」が「077,5212,3456」と区切られるのですか? 単純に「

区切る」だけであれば「0775,2123,456」などでもよいはずですが, なぜこれではダメなのですか?

この回答へのお礼

実は電話番号なんですよ　なぜか　テキストボックスが３つに分かれてるのに格納されてるのは ,07752123456,と格納されてるんです。
宜しくお願いします

お礼日時：2017/04/28 00:22

No.1 回答者： yambejp 回答日時： 2017/04/27 22:36

CGIとはhttpdで動くプログラムとしかわりません

具体的にプログラム言語はなにをご利用ですか？

この回答へのお礼

言葉足らずと言いますか、下記足らずですみません、　perlの言語で書いてます。

お礼日時：2017/04/28 00:23