perl的上下文例子

[root@rwsoda203db1 perl_tidb]# cat p.pl
#!/usr/bin/perl
use strict "subs";
use strict;
use v5.16;

my @files;
$files[0]='a.txt';
$files[1]='b.txt';
$files[2]='c.txt';
$files[3]='d.txt';

print "@files\n";#列表上下文

while(@files) {#布尔上下文
my $file = shift @files;
print "$file\n";
}
[root@rwsoda203db1 perl_tidb]# ./p.pl
a.txt b.txt c.txt d.txt
a.txt
b.txt
c.txt
d.txt



[root@rwsoda203db1 perl_tidb]# cat p.pl
#!/usr/bin/perl
use strict "subs";
use strict;
use v5.16;
#列表上下文
my @files = ("file1","file2","file3");
print "@files\n";
#逗号操作符
my $files = ("file1","file2","file3");
print "$files\n";

#标量上下文
$files = @files;
print "$files\n";
[root@rwsoda203db1 perl_tidb]# ./p.pl
file1 file2 file3
file3
3
[root@rwsoda203db1 perl_tidb]#