标签: perl-io

IO :: File-> open()似乎不尊重在下面的程序中使用open(),这对我来说很奇怪,似乎是对文档的反对.或许我做错了.重写我的代码不使用IO :: File应该不难.

我期待输出

$VAR1 = \"Hello \x{213} (r-caret)";

Hello ? (r-caret)
Hello ? (r-caret)
Hello ? (r-caret)

但是我收到了这个错误:"糟糕:在./run.pl第33行打印时,格式错误的UTF-8字符(字符串意外结束)".

这根本不适合我.

#!/usr/local/bin/perl

use utf8;
use v5.16;
use strict;
use warnings;
use warnings qw(FATAL utf8);
use diagnostics;
use open qw(:std :utf8);
use charnames qw(:full :short);

use File::Basename;
my $application = basename $0;

use Data::Dumper;
$Data::Dumper::Indent = 1;

use Try::Tiny;

my $str = "Hello ȓ (r-caret)";

say Dumper(\$str);

open(my $fh, '<', \$str);
print while ($_ = $fh->getc());
close($fh);
print "\n"; …

open(LOG,"logfile.txt") or die "Unable to open $logfile:$!";
print "\n";
while(<$LOG>){
  print if /\berror\b/i;
}
close(LOG);

我有一些值存储在变量$a中$b,$c.现在我要将这些值加载到新文件中(创建文件和加载).我是Perl的新手,我该怎么办？

我在Windows 10下使用Perl和Ubuntu.我想使用Perl Config :: Tiny模块来读取文件名和其他配置数据.当我在Linux中读取在Windows下创建的配置文件时,它将Carriage Returns保留在值的末尾.我目前通过在Linux下制作配置文件的临时副本来解决这个问题.

有没有办法告诉Config :: Tiny-> read()打开配置文件与行结束处理,做我想要的？

这是我当前代码的一个片段:

use Config::Tiny;
my $configfile = 'MyScript.ini';
# ; MyScript.ini file looks like:
# [MyScript]
# infilename=Dii.fwdata
# outfilename=Dii.1.fwdata
# logfilename=Dii.ReverseMerge.log
# someotherconfig=xyzzy

say STDERR "read config from:$configfile";
# Windows CRLF nonsense
if ( $^O =~ /linux/)  {
    `perl -pe 's/\r\n/\n/' < $configfile  >/tmp/$configfile `;
    }
my $config = Config::Tiny->read($configfile);
my $infilename = $config->{MyScript}->{infilename};
my $outfilename = $config->{MyScript}->{outfilename};
# ... etc,