我用$filename="/home/abc.txt";if(-e$filename){  print"fileexist\n";}else{  print"filenoexist\n";}好像不行呀

我想将C语言源文件中的函数申明部分全部打印出来。类似于sed-n"/^[]*(int|char|void|char\*)\(.*\)[]*$/p"nmsConv.c#这个不行。不论是shell或者perl都可以。

@str=(1..10);foreach$num(@str){  printshift(@str)ifdefined$num;    }#结果显示12345我的是version5.005_03版本，Windows上的strawberryperl。怎样才能显示完全（123456789

取文件中的一列文件中的每一行都有好多字段，这些字段是用|分隔的，比如aaa|bbb|cccc|dddd|eeee|行的格式都是一样的，现在想要取出来dddd那一列用awk的话：gawk-F'|'  '{print$4}'filename因为刚开始用perl，打算用perl实现，结果怎么也想不出来，各位给指点一下。。把每行的第三个|前的字符都替换为空

$foo和$bar的值一样吗？#!/usr/bin/perlusestrict;usewarnings;my$foo=(1,2,3);print"$

编写一段脚本,从一叠纸牌中随机抽取10张,并打印结果值。a.该脚本应当先借助foreach循环构建一套52张牌。b.外层循环负责按照花色遍历整套纸牌:梅花、方块、红桃、黑桃。内层循环则针对每一种花色遍历所有数字:A、到10、J、Q以及K。从各花色获得的纸牌都将赋值到一个数组中。c.使用rand()函数从上述数组中随

大侠们.#!/usr/bin/perl-w$/=undef;while(<>){            while((/\s*?(aa.*?|kkk\s\d:.*?)\r\n(.*?)\r\n/isg)|(/(kkk.*?)\</i)

大家好，我有这样一个json数据文件file：{"name":"china","province":[{"p_name":"shanxi","p_num":"1024"},{"p_name":"shandong","p_num":"2048"}]}用这样一个脚本进行处理可以输出json对象：#!/usr/bin/perl-wu

同学（学生物的）提的要求，主要用于帮助研究用的，要得比较急，楼主对PERL和网络编程都不熟悉，顾在这里发帖，看看有没有同学愿意赚点外快。程序基本要求：    1.按照预定义的输入源和规则对网络数据库进行检索，获取有效数据后下载到本地，按预定的文件目录结构存储。    2.按照预定的公式对下载到本

我用HttpWatch抓取所要上传的post内容时显示：/***********************************************/    -----------------------------7db2ee21560956Content-Disposition:form-data;name="pfr"1661-