Help for this page

Select Code to Download


  1. or download this
    use warnings;
use strict;
...
xxxx*@Product       : xxxx
xxxx*@user_info_end
xxxxxxxxxxxxxxxxxxxxxxxxxxxx
  2. or download this
    $VAR1 = [
          'xxxx*@user_info_start',
...
          'xxxx*@Product       : xxxx',
          'xxxx*@user_info_end'
        ];
  3. or download this
        if ( my $flag = /\@user_info_start/ ... /\@user_info_end/ ) {
        push @userinfo, $_ unless $flag==1 || $flag=~/E0/;
    }