- 博客(3)
- 收藏
- 关注
原创 Perl学习笔记三: 再次尝试优化文件I/O
作者重写了上次程序中的printFile函数,如下:# Sub: print a file to stdout# Arguments:# $_[0] The file namesub printFile{ my $success = open FHANDLE, " my @lines; if(! $success) { return;
2009-12-06 16:45:00 248
原创 Perl学习笔记二: 尝试优化文件读取
上次笔记中的Perl程序在读取文件时是一行一行读入的,作者猜想应该比较慢。今天作者试图提高文件读取的速度。 因为Perl允许将文件内容全部读入到一个数组变量中,所以作者将上次的程序修改如下: #!/usr/bin/perl -w# Usage: fjoin.pl # This program print all .cpp/.h files in to stdoutuse
2009-11-08 18:06:00 370
原创 Perl学习笔记一: 简单文件I/O
近来工作中遇到一个问题:要求把指定目录下的所有C++源文件连接成一个单独的文件。作者写了一个Perl程序来实现这个功能。因为作者一直想了解Perl语言的确切运行效率,所以花了点时间写了相同功能的C程序,比较了一下两者的运行速度。 Perl源程序如下: #!perl -w# Usage: fjoin.pl # This program print all .cpp/.h file
2009-10-24 09:30:00 339
空空如也
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人