split和join合写

小骆驼 第一章 简介
1.

// input 和截取字符
#!usr/bin/perl

use strict;
use warnings;

while ( <> )
{

chomp;

print join("\t",(split/:/)[0,2,1,5]),"\n";

}

// say = print+\n
#!/usr/bin/envperl

use 5.010;#指明版本号
use strict;
use warnings;

say "helloworld!";

print "helloworld!\n";

//将文件中的字段读入,修改,和输出
#!/usr/bin/perl

use strict;
use warnings;

my @lines = ` perldoc -u -fatan2 `;

foreach ( @lines )
{

s/ \w < ([^>]+) > / U$1 /g;

print;#这里不明白print的用法

}

尝试去写与上面print相同功能的代码段,失败了,不知道怎么修改

//想要print出PPLE
#!/usr/bin/envperl

use strict;
use warnings;

my $test = "apple";$test =~s/ a(\w)+ / \U$1 /g;

print;