perl的上下文例子

wgz7747147820

于 2019-05-23 13:53:24 发布

阅读量269

点赞数

CC 4.0 BY-SA版权

分类专栏： perl 文章标签： perl

本文链接：https://blog.youkuaiyun.com/wgz7747147820/article/details/90479155

perl 专栏收录该内容

31 篇文章

订阅专栏

博客虽未给出具体内容，但从标签可知与Perl相关。Perl是后端开发领域的一种编程语言，在信息技术中有着特定应用场景。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

[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]#