YUANya

导航

 
 1 #!/usr/bin/perl
 2 
 3 use strict;
 4 use warnings;
 5 
 6 my $new = (0 ==1)?233:'';my @arr;
 7 my $new_1 = (1==1)?233:'';
 8 push @arr,$new_1;push @arr,$new;push @arr,'123456';
 9 my $line = join "|",@arr;
10 print $line;
11 print "\n";
12 
13 #233||123456

 

posted on 2019-07-03 19:59  YUANya  阅读(1089)  评论(0编辑  收藏  举报