perl 输入到文件
如题, 怎么样用perl语言打印彩色文件? 下面的好象不行. #! /usr/local/bin/perl 2 3 use Term::ANSIColor qw(:constants); 4 5 open ($fh, ">>ttt.txt" ); 6 7 print( fh BLUE, "YYYY\n"); 8 print( fh GREEN, "CCCC\n"); 9 print( fh BLACK, "ZZZZ\n"); 10 11 close( $fh ); 12 13 exit (0);
by sunworld - Perl - 2014-05-01 13:48:17 阅读（3126） 回复（8）
需要处理由用户指定的文件，我希望这样实现 用户在命令行输入文件路径和名称，然后程序获取。 但是这里有绝对路径和相对路径的问题，绝对路径没什么好说的，相对路径要怎么实现呢？ 比如说我这个程序在/home/work/test文件夹下，然后数据也在这个文件夹，那么正常情况是不需要再输入/home/work/test路径直接输入文件名称就可以了，请问这个怎么实现呢？ 谢谢各位！
最近学习了perl异步模块Coro和perl非阻塞的AnyEvent::HTTP模块，为了更深入的学习异步编程思想，准备写个入门程序。 最合适的就是爬虫了，我是用Coro的信号控制HTTP请求数量的，入口是一个网站主页，只准备抓一个站点。 有一个%root的hash变量，用来将站点的所有URL层次化的保存在%root里面，并保存抓取状态(是否已抓取)。 sub URL_add { # $p用于指向%root各个层次的指针 my $p = shift; my $url = shift;...
我需要将一个变量（比如$file_name,这个$file_name的值是一个类似dd.txt的文件名）写入一个文件句柄
本帖最后由 jiannma 于 2011-04-23 14:12 编辑 想把LDAP 搜索的结果重定向到一个文件中，自己也试过文件句柄的方式，但是发现不对 :em17: :em17: [quote] 1. #!/usr/bin/perl 2. use Net::LDAP; 3. $ldap = Net::LDAP->new ("192.168.56.101 " ) or die "$@"; 4. $ldap->bind; 5. $mesg = $ldap->search(base => "dc=test,dc=com,dc=cn", 6. filter => "(objectClass=organizationalPerson )" ); ...
我的 代码： use strict; use warnings; use Encode; my $str_code="中文"; Encode::_utf8_on($str_code); open (F, ">:utf8","test.txt"); print F $str_code; close F; 在windows 7 用notepad 打开 就是乱码。 如果我直接print到 标准输出。是可以显示中文的。 请问一下。 我如何才能吧 中文写入文件呢？
这周写了个perl程序，功能是把日志文件信息存入到数据库中去。 我这么写的 （1）找到相应的日志文件 （2）对找到的日志文件进行循环，读取日志文件里面的相关信息。 （3）把这些数据信息读入到数据库中去。 这功能还需要考虑什么异常情况吗？比如读取数据读取到一半时候，数据库异常等情况。或者是能使perl程序定时调用吗？
我想将一些信息同时输出到屏幕和log文件中 在shell中有这样的写法： echo "aaaaaaa" | tee -a log 不知道在perl有没有类似的实现，可以将信息同时输出到屏幕和log文件中？！多谢了
在Windows下我写了一个BAT， net use z: \\"ip address"\sharefolder password /user:username #实现连接共享服务器，并在本地生产一个Z盘符 copy z:\file.txt c:\. #拷贝Z盘下的file.txt 到C盘 在Linux下我写了个SHELL， mount -t cifs -o username="username",password="password" //ip address/sharefolder/ /mnt/ #实现连接共享服务器，将共享文件夹mount到/mnt目录下 cp /mnt/file.txt /root/file.txt ...
