Help for this page

Select Code to Download


  1. or download this
    my $dataline = "XP.sta1    -41.5166    0.0513    0.6842    0.1794    0
+  CPHI.BHZ   300.2458   -42.2436";

my @arr = split /\s+/, $dataline;
...
XP.sta1,         -42.2436

=cut
  2. or download this
    use 5.018;
use Data::Dumper;

...


=cut