乱读天书， 不求甚解
周祎骏的个人云笔记
Toggle navigation
乱读天书， 不求甚解
主页
Linux:系统配置
Linux:用户管理
Linux:优化排错
Linux:进程调度
Linux:文件系统
Linux:网络
Linux:系统服务
Linux:安全
Linux:内核
容器:Docker
容器:containerd
容器编排:Kubernetes
IAC:Terraform
大数据:Hadoop
大数据:Zookeeper
大数据:Hbase
消息队列:rsyslog
消息队列:kafka
数据库:MySQL
数据库:MongoDB
搜索引擎:Elasticsearch
时序数据库:OpenTSDB
网站服务:Nginx
编程:Bash
编程:Perl
编程:Python
编程:C
编程:JAVA
编程:Rust
版本控制:gitlab
知识管理:docusaurus
常用小工具
关于我
标签
perl 0.06 输入，输出，读取文件
2016-05-18 13:52:53
60
0
0
admin
#获取标准输入 ```perl my $line = <STDIN>; （获得了一行） $/=undef; my $line = <STDIN> ; #可以把多行内容读入一个变量 $/="\n"; my @lines = <STDIN>; #（获取所有输入，linux到ctrl+d, dos/windows到ctrl+z) 很占内存哦 my @lines = <>; #像cat命令一样获取所有文件输入 ``` #用文件句柄处理文件 ##裸句柄 ```perl open READ , " < ./a " or die $!; my $thing = <READ>; open WRITE , "> ./b " or die $!; print WRITE $thing; ``` ##标量句柄 ```perl my $read; open $read , " < ./a " or die $!; my $thing = <$read>; my $write; open $write , "> ./b " or die $!; print {$write} $thing; ``` ##把命令输出给句柄 ```perl my $r; open $r, " ls ./ | " or die $!; #获得ls ./ 的输出 my $w; open $w, " | sort > /tmp/a" or die $!; # 可将输出结果排序后写入文件 print {$w} "4\n3\n9\n8\n"; my $cmd_fd; my $pid = open $cmd_fd, 'top -b | ' or die $!; print $pid."\n"; my $line = <$cmd_fd>; print $line."\n"; `kill -9 $pid`; close $cmd_fd; ```
上一篇:
perl 0.05 正则表达式/文本处理
下一篇:
perl 0.07 关于文件系统
文档导航
admin
admin