my $result = join $glue, @pieces;
#!/usr/bin/perl
my $result = join ":", "beyes", "x", "1000", "100", "beyes", "/home/beyes", "/bin/bash";
print "$result\n";
./join.pl
beyes:x:1000:100:beyes:/home/beyes:/bin/bash
#!/usr/bin/perl
my $result = join ":", "beyes", "x", "1000", "100", "beyes", "/home/beyes", "/bin/bash";
print "$result\n";
my @passwd = split /:/, $result;
my $value = join "-", @passwd;
print "$value";
./join.pl
beyes:x:1000:100:beyes:/home/beyes:/bin/bash
beyes-x-1000-100-beyes-/home/beyes-/bin/bash
欢迎光临 曲径通幽论坛 (http://www.groad.net/bbs/) | Powered by Discuz! X3.2 |