我是perl的新手,但我只是尝试打开一个文件并读取其中的一些行。
到目前为止,代码如下所示:
open FILE, "file.txt" or die "can not open file";
while (<FILE>) {
print if ($.== 3..5)
}
但我需要能够更改要获取的行。因此,这3和5个数字需要是变量。
另外,有人能帮我更好地理解这段代码吗?我想知道什么是$。以及如何将print命令替换为将其放入数组或其他内容中,以进一步处理这些行?
谢谢!
为什么在这种情况下双引号的转义会丢失呢?
$ cat foo.txt
This is a \"very good\" text worth AMOUNT dollars
$ cat full_story.txt
This is about money:
STORY
使用以下方法对其进行测试:
VAR=$(cat foo.txt)
TOTAL=$(cat full_story.
我正在使用Log4Perl模块进行日志记录。当我运行应用程序时,我在控制台上获得了一些Log4Perl模块日志:
Subroutine import redefined at C:/Strawberry/perl/site/lib/LOG/Log4perl.pm line 76.
Subroutine initialized redefined at C:/Strawberry/perl/site/lib/LOG/Log4perl.pm line 214.
Subroutine new redefined at C:/Strawberry/perl/site/lib/LOG/Log4perl.
我有一个Perl子程序,它导致了一个问题:
sub new
{
my $class = shift;
my $ldap_obj = Net::LDAP->new( 'test.company.com' ) or die "$@";
my $self = {
_ldap = $ldap_obj,
_dn ='dc=users,dc=ldap,dc=company,dc=com',
_dn_login = 'dc=
我需要在perl中回传一个枚举值,我该怎么做呢?
从这个线程中拉出:
use strict;
use constant {
HOME => 'home',
WORK => 'work',
MOBILE => 'mobile',
};
my $phone_number->{type} = HOME;
print "Enum: ".$phone_number->{type}."\n";
但是这不应该返回索引0吗?还是我理解错了?
编辑:
那么对于枚举类型
所以我正在做我的Moosey业务,我想在我使用数字的地方使用一个常量可能会更好,以便清楚这些数字的含义,或者以防它们稍后发生变化
因此在父类中,我添加了标准的“use常量”。
package Parent;
use constant {
NO_LEVEL => 0,
MY_LEVEL => 1,
YOUR_LEVEL => 2,
};
package Child;
extends 'Parent';
#just to demonstrate that child can or cannot a
在我看来,在使用prxmatch与SAS DS2时出现了一个错误。也有可能我的代码出错了。我想知道这个问题是因为我的代码还是SAS的编译错误造成的。
在下面的代码中,我将一个数据表中的搜索词与另一个数据表中的搜索文本进行匹配。
data master_table;
input name $ search_text $;
datalines;
Frank allHere
John Sales
Mary Acctng
Joe Findme
Sue Hereiam
Jim graccaa
;
run;
proc print data= mas
我想使用Perl自动执行Excel来完成以下任务:
For a list of Excel .xls files, do the following:
Open the file
Set Format to CSV
Save the file under the original filename and directory, but replace the extension "xls" with "csv"
Close the file
End
我发现了如何打开文件,甚至如何保存它们。我没有找到如何更改文件格式/另存为不同格式的方法。应该没有