Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl
use strict;
...
__DATA__
!A001ST!,!98!,!1!,!01/10/1999!,!EUROPEENNE!,!0!,!EUR!,!6!,!7!,!0!,!98!
+,!1!
!A001ST!,!AD,CD!,!1!,!20/05/2004!,!ANDORRA!,!0!,!EUR,USD!,!6!,!7!,!0!,
+!AD!,!1!
  2. or download this
    Splitting data by comma as a delimiter 
Data splitted is as below 
A001ST==>98==>1==>01/10/1999==>EUROPEENNE==>0==>EUR==>6==>7==>0==>98==
+>1
Data splitted is as below 
A001ST==>AD,CD==>1==>20/05/2004==>ANDORRA==>0==>EUR,USD==>6==>7==>0==>
+AD==>1