Sample Perl script

最新推荐文章于 2021-02-19 18:16:03 发布
最新推荐文章于 2021-02-19 18:16:03 发布
阅读量407 收藏
点赞数
分类专栏： Perl
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/rockiecxh/article/details/25278777
版权
这篇博客介绍了Perl编程的基础，包括输出语句、变量、字符串、数组、哈希、条件判断、文件输入输出等。示例中展示了如何使用print、变量赋值、数组操作以及文件读写。还讲解了如何使用正则表达式进行文本处理，并提供了自定义函数的示例。
摘要由CSDN通过智能技术生成
#!/usr/bin/perl    
use strict;    
#use warnings;
print "Hello, World!";

# This is a comment

#Whitespace is irrelevant:
print
"Hello, World!"
;

#... except inside quoted strings:
# this would print with a linebreak in the middle    
print "Hello        

  world";
 
  print "Hello, world";    
  print 'Hello, world';
  my $name='Rockie';
  print "Hello, $name\n";     # works fine    
  print 'Hello, $name\n';     # prints $name\n literally
 
最低0.47元/天 解锁文章
rockiecxh
关注
  • 0
    点赞
  • 踩
  • 0
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
专栏目录
Perl脚本常用操作
Sugar的博客
08-10 1万+
一、Perl脚本连接数据库#! /usr/bin/perl use URI::Escape; use POSIX qw(strftime); use DBI; require "public.pl"; my $source_file = "read.log"; #读取文件 my $dest_file = "write.txt"; #写入文件 my $db = DBI->connect("DBI:
perl中$/的作用
勤劳的小蜜蜂
03-26 8648
$/在perl中是输入记录分隔符，影响perl对"行"的理解。默认是换行符"\n".也可以定义为其他的内容： 需要特别注意的是，$/的值是字符串，不是模式匹配。 1> 不修改$/的内容，默认为"\n" eg: test.pl open WRI, " $content = ; #读取一行 @lines = ;  #将读取的所有行放入@lines数组中。 close WRI;
perl 编程基础
抱朴守拙
04-22 578
Perl：General@ ------------------------------------------------------- 在 Perl 中没有全局变量这样的东西，像$_ 和 SIG，只是看上去像全局变量，因为它们缺省时属于 main 包，而不是当前包；   所有的标识符，包括用 our 声明的，但是不包括用 my 或者用其它包名字限定的变量都将放到属于当前包的符号表中。 ...
perl的子程序sub返回值不改变的解决方法
897371388
07-13 199
用子程序去掉从文件读取的每行的首尾空格，sub函数print的值已经没有空格了，但是返回值打印出来还是有空格。代码如下： while(<FH>) { &trim($_); print "$_\n"; } sub trim { my $str=shift; $str=~s/^\s*//g; ...
Uedit32高亮文件（加强）
weixin_34005042的博客
07-02 3135
替换根目录下　wordfile.txt//////////////////////////////////////////////////////////////////////////////////////////////L1"C/C++" C_LANG Line Comment = // Block Comment On = /* Block Comment Off = */ Escape ...
python网络爬虫学习笔记（5）静态网页抓取（二）实践
user_987654321的博客
05-31 621
获取豆瓣读书top250标题的爬虫，粗略判断静态网页与否，robots.txt复习与拓展（Sitemap），BeautifulSoup库的soup.a.text.strip()
吴恩达机器学习作业6---Support Vector Machines apply in Spam Classification（下）
NP_hard的博客
02-19 1万+
文章目录前言代码分析数据集spamTrain.matspamTest,matspamSample1.txtspamSample2.txtvacab.txtemailSample1.txtemailSample2.txt 前言 本次作业是用svm对邮件进行分类，筛选出垃圾邮件 邮件为txt文件 首先我们要对邮件进行预处理，去除，替换一些符号 然后，将处理好的邮件str转化为单词列表 根据给定的单词dict，将邮件单词列表转化为0/1表示的列向量 根据此向量，训练线性核SVM 得到的SVM模型即可用于分类
Acegi Security -- Spring下最优秀的安全系统
qq_44910624的博客
04-21 200
                 一 Acegi安全系统介绍    Author: cac 差沙     Acegi是Spring Framework下最成熟的...
Perl获取数组长度
热门推荐
rockiecxh的专栏
05-08 2万+
列表/数组的长度 当数组变量出现在预期简单标量出现的地方，则Perl解释器取其长度。 @array = (1, 2, 3);  $scalar = @array; # $scalar = 3,即@array的长度  ($scalar) = @array; # $scalar = 1,即@array第一个元素的值, 列表赋值 注：以数组的长度为循环次数可如下编程： my $count = 0;
Perl从文本文件中按关键字提取数据
rockiecxh的专栏
03-04 9773
#!/usr/bin/perl -w #require "convertword.pl"; use strict; use warnings; use Cwd; use File::Spec::Functions qw( catfile ); # 转换格式 print "转换Word为文本文件...\n"; #&convertWord(); `perl c
Perl:用File::Basename来获取文件…
rockiecxh的专栏
05-07 4285
以下内容来自Code Snippets。Perl的File::Basename 模块 File::Basename 模块被用来析取文件路径中的目录，文件名以及后缀。我的这个简单例子演示了如何获取文件后缀。 至于详细用法，用perldoc File::Basename命令查看。 DESCRIPTION These routines allow you to parse file specificat
在Perl中获取当前目录的完整路径
rockiecxh的专栏
05-07 1588
来自于这里：http://techcenter.dicder.com/2007/1021/content_292.html 有两种方法： 1. use Cwd; my $dir = getcwd; #$dir中即为当前目录的完整路径信息。 2. my $dir = $ENV{'PWD'}; #ENV是一个散列，用于存放环境变量。$PWD是Linux的环境变量，表示当前所在目录。 若当前目录
Perl语言入门——高级Perl技巧
rockiecxh的专栏
05-07 1309
用eval捕获错误：perl提供了简洁的eval块来捕获代码运行时的严重错误     eval {$barney=$fred/$dino};     现在即使$dino是零，这一行也不致于让程序崩溃，这里eval其实是一个表达式，所以要分号     如果在运行时eval这块代码诱发了常见错误，就会停止运行，但不至于使程序崩溃     我们要知道程序是正常结束还是触发异常结束，只要看专用的$@变量。
Windows下使用Perl连接DB2[转]
rockiecxh的专栏
05-07 1244
原文地址: http://server.it168.com/server/2006-02-06/20060206011101.shtml 　　Perl语言本身就不多做介绍了。 　　1994年发布的DBI是Perl语言连接关系性数据库的标准。可以从dbi.perl.org获得DBI的源代码和文档。 　　IBM在1995年发布了对于Perl的DB2驱动，这个驱动是符合DBI标准的，在Perl里这个
Perl Word文档转为TXT文件
rockiecxh的专栏
03-04 1172
#!/usr/bin/perl -w# usage: perl convertword.pluse strict;use warnings;use Cwd;use File::Spec::Functions qw( catfile );use Win32::OLE;use Win32::OLE::Const 'Microsoft Word';$Win32::OLE::Warn = 3;# 获取当前
[转]关于Perl文件操作——批量修改文…
rockiecxh的专栏
05-08 1143
关于Perl文件操作——批量修改文件名 修改文件名 一个修改文件名的错误示例： 1 #!/usr/bin/perl2 foreach (@ARGV){ 3 s/(\.bak)?$//; #去掉文件名的.bak后缀 4 } 上面代码是我初学perl时写下的，然而这并不能修改文件名，事实上，所修改的仅仅是列表@ARGV中的变量，一旦退出程序，修改后的变量就会销毁。   可以使用r
perl hash数组（转）
rockiecxh的专栏
05-08 1133
PleacPerl——Hashes 5. Hashes Introduction #----------------------------- %age = ( "Nat",   24,          "Jules", 25,          "Josh",  17  ); #----------------------------- $age{"Nat"}   = 24; $age{"J
# Task 3: Remove multiple spaces Write a Python program to remove multiple spaces in a string. Sample data: I         like       python Sample Output: I like python
最新发布
05-26
Here's a Python program that removes multiple spaces in a string: ```python input_str = "I like python" output_str = " ".join(input_str.split()) print(output_str) ``` Output: ``` I like python ``` Explanation: - `input_str` contains the input string with multiple spaces. - The `split()` method splits the input string into a list of words using spaces as the delimiter. - The `join()` method joins the list of words back into a string using a single space as the separator. - The resulting string with single spaces between words is stored in `output_str`. - The `print()` function is used to display the output string on the console.
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值