や��
リクエスト��次��件����シェルプログラムを書���ガイド：
例：入力ファイル�場���以下�データ���れ�

入力ファイル�データ：
80723240029,12,323,443,88,98,7,98,67,87
80723240030,12,56,6 � � � 3,12,56,6,7,2,3,12,56,6,7,2,3,88,98,7,98,67,87
80723240031,56,57 � d�88,98,7,98,67,87,88,98,7,98,67,87
80723250032,45 �水銀� 3
背景：後�最��列���6列を1��最��列����識�れ��るsetand�レコードを識別�る������り��。

������データを変��る必���り��以下�通り：
出力ファイル�データ：
80723240029,12,323,443,88,98,7
80723240029,98,67,87
80723240030,12,56,6 � � � 3
80723240030,12,56,6,7,2,3
80723240030,12,56,6,7,2,3
80723240030,88,98,7,98,67,87
80723240031,56,57 �エ� 88,98,7
80723240031,98,67,87,88,98,7
80723240031,98,67,87
80723250032,45 �水銀� 3



事�������
Srinivasæ°�

何�を��試��自分�自分��������も�一度�メール�"仕事"�終了�る�を待������� 申�訳�り��ん�スタッフ��失礼������る。

�ん���Zaxxon �
�����データ形���最終段階�����実際��IAM直撃�事��他�も��2��ファイル�実際�ファイルを分割��最��列を識別�る��ページを���る����。

�����質��IAMを�ら�進�る�������..投稿

失礼�������解�����pls ..説明

������メールアドレスを投稿�る���客様�作業を行�����通知を求���る。
���人���楽��を支����る/��やり/ムード/退屈�何�も。�れ�誰����方法を書�����多少���切�支払�を�求�れ得る。

���実際��ん��もり�ゃ����ん�...

������を使用���題を�解�る Perl� （�������望�を与�る�考���る����サンプルデータ） 。

＃ � / usr / bin�/perl�
��フィールド@ ;
��開催@ ;
��$ key1 ;
��$�X ;
��$�;
オープン入力� " < file6 " ;
出力を開�� " > " outfile ;
（ <INPUT> ）��
（
ムシャムシャ食�;
@フィールド\u003d分割/ � / � $ _ ;
$ key1 \u003d $フィールド[ 0 ] ;
フィールド@シフト;
�（ （ ） ） $フィールド[ 0 ]定義
（
�\u003d 1 （ $ ; $�< 7 ; $�+ + ）
（
場�（ （ ） ） $フィールド[ 0 ]定義
（
$ホールド[ $�] \u003d $フィールド[ 0 ] ;
フィールド@シフト;
）
��他�
（
最後�;
）
）
$�X \u003d "ホールド" � @�加;
$ array1 （ $ key1 ） \u003d $�X ;
�刷出力を" $ key1 $ array1 （ $ key1 ） \ Ñ " ;
@ホールド\u003d （ ） ;
）
）
近�入力;
近�出力;