Help for this page

Select Code to Download


  1. or download this
    my ($transaction_id) = $transaction_line =~ /:(\d+)$/;
    
  2. or download this
    while (my $pro_logline = <PROLOG>) {
     chomp $pro_logline;