perl的格式化输出及chomp的重要性分析
实现代码如下:#!/bin/perlprint "please input some lines,then press Ctrl+Z. \n";chomp(@s=);print "1234567890"x 3 ."\n";#做为输出结果的一个标尺foreach $s(@s){printf "%20s
实现代码如下:#!/bin/perlprint "please input some lines,then press Ctrl+Z. \n";chomp(@s=);print "1234567890"x 3 ."\n";#做为输出结果的一个标尺foreach $s(@s){printf "%20s
按照要求进行的排序:实现代码如下:#!/bin/perl@number=qw/5 10 15 3 2 4 8 6 /;my @descending =sort {$a$b} @number;#这里$a=5,$b=10,因为$a在前,perl得到的结果是小数在前,也就是升序排列print "@desc
window下读取某个文件,格式是:open (filehand,"路径e.g:d:\\data.txt");然后将打开的内容赋值给一个变量:$protein=;附:一个读取蛋白质序列的程序。实现代码如下:#!/bin/perlopen (PROTEINFILE,"f:\\perl\\data.tx
实现代码如下:#!/usr/bin/perl#use strict;open(FILE1,"C:/Perl/BX/BX-Users.csv");open(FILE2,"C:/Perl/BX/BX-Books.csv");open(FILE3,"C:/Perl/BX/BX-Book-Ratings.c
1. chop和chomp函数 两个函数都以字符串作为参数,并去除其末尾最后一个字符。区别是,无论最后一个字符是什么,chop都会去除,并在返回值中返回;而仅当字符串最后一个字符与特殊变量$/保存的字符一样时,chomp才会将其去除。默认情况下$/保存换行字符,当然可以重设。 1)如果函数参数是一
1.Perl数组(1):1) 初始化数组 @array = ( "stringA" , "stringB" , "stringC" );2) 使用负索引循环检索 print $array[-1];#输出索引为(-1 + 3) % 3 = 2 的 stringC3) 动态增长 $array[4] =
实现代码如下:#!/usr/bin/perl -wuse strict;use warnings;use FileHandle;my %fh;my @array = (1..10);for(1..5){open $fh{$_},">$_.txt" or die;}for(1..5){#prin
如何用Perl脚本操作系统环境变量呢?想必很多朋友马上就会想到Perl中提供的$ENV这个特殊的哈希变量,对,在$ENV中完全可以获取到一些系统变量。怎么获取呢?比如想要知道Path这个系统环境变量的内容,我们可以通过$ENV{'Path'} 来获取。如果想设置Path这个环境变量呢,哈,使用$EN
注意:use lib后面只能跟directory, 不能跟file。实现代码如下:use lib 'c:\perl\lib\xml';use parser注解:parse.pm是目录c:\perl\lib\xml下的一个模块。
缺省的Perl调试器就是perl解释器本身,另外还有图形界面的调试器。由于在开发程序时一般都使用telnet访问服务器,因此本文主要为大家介绍下缺省的命令行调试器的用法。用-d命令行选项启动Perl解释器,例如:perl-dtest.pl即进入Perl调试器的交互界面。调试命令列表:(所有命令都在调