Template:
#!/user/bin/perl -w
use strict;
use warnings;
my $jfjdlsfl = ;
Example: 读取文件中的字符串，将每个字符串中的小写字母换成大写字母
#!/user/bin/perl -w
use strict;
use warnings; ##注意加这些title
open FIN, "<classl
原创
2023-06-29 10:03:42
37阅读
#!/usr/bin/perl$count=0;while($count < 100){print "\n\n\n\n";print "please input password: \n";$count+=2;#print "$count \n";$ftp=1;$news=2;$zhaoyun=3;$postfix=4;$oracle=5;$ntp=6;$line=<STDIN>
原创
2011-11-27 07:58:30
608阅读
#!/usr/bin/perl -w#output the largest number from a file$max_number = &max(3,5,10,4,6) ;sub max { my($max_sofar_
原创
2010-01-21 17:01:10
1607阅读
点赞
3评论
以前看小骆驼书，习题中的小程序，稍微复习点吧，暑假我再系统学习下，之前的老忘，希望博客让我记住他们。
原创
2015-06-06 19:10:09
1519阅读
readme:
本文摘要perl面向对象编程的相关概念，并提供一个完整案例，文中脚本都已调试通过
使用方法：
在一个文件夹中分别建立oopperl.pl,cocoa.pm,coffee.pm,bean.pm四个文件，并写一个bat文件oopperl.bat
oopperl.bat内容:
@echo off
perl oopperl.pl %*
oopperl.pl文件如下
转载
2023-12-21 21:46:59
83阅读
子程序，类比c语言中的函数，在形式上个人认为最大的区别：没有形参1.1.定义子程序1.2.调用#! /usr/bin/perlsub marine{ $n += 1 ; print "$n\n" ;}&marine;&marine;1.3.返回值1.3.1. 基本原则所有的Perl 子程序都会返回值，在Perl 中返回值和不返回值是没有区别的。当然，不是所有Perl子程序返回的值都是有用的。由于所有的被调用的子程序都要返回值，因此使用特殊的返回值语法在大多数情况下是一种浪费。因此Larry将之简化了。当Perl 遍历此子程序时，将会计算每一步的值。此子程序中
转载
2013-09-12 21:25:00
116阅读
2评论
v-lhb-db01:/root/sbin# cat s1.pl use Net::SMTP;use HTTP::Date qw(time2iso str2time time2iso time2isoz); s...
转载
2015-05-11 16:57:00
222阅读
2评论
Perl 程序后台执行示例
原创
2021-10-15 21:04:33
514阅读
先验证linux是否安装了perl，使用perl -v测试[root@localhost shell]# perl -vThis is perl 5, version 16, subversion 3 (v5.16.3) built for x86_64-linux-thread-multi(with 33 registered patches, see perl -V for more ...
原创
2021-07-28 10:33:53
337阅读
#!/usr/bin/perl -w#创建子程序检查$values的值# sub printOK# {# if($values>10){# print "Values is $values.\n";# }# else {# print "Value is too sm
原创
2022-06-18 00:02:02
132阅读
子程序的定义可以使用关键字 sub 子程序名(不包含&)，以及经过缩进的花括号$n=1;&marine;&marine;&marine;sub marine{
原创
2023-04-03 17:13:25
92阅读
[oracle@june2 ~]$ cat 11.pl #!/usr/bin/perl#use strict; #use warnings; use File::Path; use File::Copy;...
转载
2014-12-20 11:23:00
79阅读
2评论
这个问题其实很简单（当然这是在我查询了半天的资料，最终成功运行后的结论）！ 首先，要搭建一个Perl运行的环境：ActivePerl就是一个很不错的WINDOWS运行平台。你随便在网上一搜，下载一个安装就OK了，和常用的windows软件安装一样。这里我的安装路径是: C:/usr/ &nbs
转载
精选
2012-07-06 09:16:41
1203阅读
#!/usr/bin/perl -w
sub sum_of_fred_and_barney {
print "Hey,you called the sum_of_fred_and_barney subroutine!\n";
$fred+$barney;
}
转载
2011-04-24 12:57:00
143阅读
2评论
有三种：system，exec，``(反引号).1. system：执行完命令后，继续执行perl script；输出到STDOUT。2. exec：一执行这条命令，perl就退出了；输出到STDOU
转载
2009-09-03 22:55:00
342阅读
2评论
设计一个语言的初始目的决定了该语言将会内建什么功能
perl初始是Larry为了格式化处理文本而创建的
所以内建了正则
看python居然内建一个复数型别，我猜测Guido最初一定是为了数值计算
而创建了python
so，perl擅长文字处理，python擅长数值处理
Perl
设 计之初就是为了方便编写复杂高效的系统脚本，它也是应该最为广泛的脚本编程语言。它在编程方面相当于瑞士军
转载
2024-01-09 16:10:10
0阅读
my @ss = ("a","b","c","d");print $ss[1] 显示为aprint @ss[1,3] 显示为a c@ss的标量为4if (@ss < 5){command}else{command}if($date == $today){command;}elseif($date == $christmas){command;}else{command;}prin
原创
2014-01-20 19:52:01
661阅读
#!/usr/bin/perl
#open M,'../olympic_note/mail_template';
open M,'tongzhi.txt';
@t = <M>;
close M;
open(LIST, 'liebiao.txt');
#open(LOG,'>>havesend.olympic.080731');
open(LOG
原创
2012-06-27 16:58:39
736阅读
Perl子程序的定义、调用以及参数列表和局部变量、持久变量的使用
原创
2013-05-20 10:24:31
815阅读
用-d命令行选项启动Perl解释器，例如 perl -d test.pl 即进入Perl调试器的交互界面。 调试命令如下：（所有命令都在调试提示符下顶格输入
原创
2023-11-08 09:11:16
86阅读
