####################################################### my $a = 50; my $b = 100; printf(); printf("\n\nswap 前 a : $a \n"); printf("swap 前 b : $b \n\n"); &swap (*$a, *$b); printf("swap 后 a : $a \n"); printf("swap 后 b : $b \n"); sub swap { local (*pointer_1, *pointer_2) = @_; my $temp; $temp = $pointer_1; $pointer_1 ...

在perl脚本A中想调用本地的一个程序B（也是perl编写的），A用到了systerm()来执行B，如果执行B成功的话 B会生成一个文档，在调试A的时候没有什么错误，但是就是不见生成的文档，单独执行B能够生成文档，不知道是为什么,希望哪位达人能够给点指导，谢谢！！！

[code] #include #include int main() { printf("%d",gcd(10,6)); system("pause"); return 0; } int gcd(int a,int b) { if (a%b == 0) return b; else return gcd(b,a%b); }[/code] 上面是C 語言寫法 ~~如果改成perl 要怎麼寫? 謝謝

请教perl语法中select表示何意，$|的赋值又有什么含意。多谢

今天心血来潮看了一下Activeperl下的Exporter.pm下的代码,发现里面有: require 5.006; # Be lean. #use strict; #no strict 'refs'; our $Debug = 0; our $ExportLevel = 0; our $Verbose ||= 0; our $VERSION = '5.58'; our (%Cache); 我不知道这个our是什么意思,请知道的来指点迷津 还有就是那个require 5.006,这个有什么说法吗? 谢谢.

#!/usr/bin/perl -w use strict; my @veg=qw(carrots corn); splice (@veg,0,1); print @veg,"\n"; splice (@veg,0,0,qw(peas)); print join(' ',@veg),"\n"; splice (@veg,-1,1,qw(barley,turnip)); print join(' ',@veg),"\n"; splice (@veg,1,1); print join(' ',@veg),"\n"; 输出结果为： corn peas corn peas barley,turnip peas 为什么最后个值是peas，而不是peas,turnip?

想请教一个问题:windows 环境下可以运行perl写的程序吗? @REM = ' @ECHO OFF perl %0 %1 %2 %3 %4 %5 %6 %7 %8 %9 goto endofperl '; # ftp.cmd ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdat) = localtime(time); $sec = substr($sec+100,1,2); $min = substr($min+100,1,2); $min = substr($min+100,1,2); $hour = substr($hour+100,1,2); 以上是程序文件中的一部分,程序名为ftp.cmd, 在DOS环境中运行的. 有介绍...

一直以为my变量离开作用域后会被自动销毁，但是如果分发了my变量的引用，就不会了： sub somefunc{     my @array;     @array = (0..5);     return \@array; } $array_ref = somefunc(); ... 原来perl还有此一招，估计c语言用多了，看到这种用法很不习惯。

需要学习perl，perl有没有类似java API一样的东西 可以查询函数的使用等等？？

怎样查看perl中函数的用法啊? 举个例子如: 怎样知道 splice函数的详细说明呢? 多谢