代码之家 › 专栏 › 技术社区 › Vijay

为什么我使用SQL从Perl得到奇怪的输出?

unix perl

Vijay · 技术社区 · 16 年前

foreach my $line  (@tmp_field_validation)
{
        chomp $line;
        my ($cycle_code,$cycle_month,$cycle_year)= split /\s*\|\s*/, $line;
        $cycle_code=~ s/^\s*(.*)\s*$/$1/;
        $cycle_month=~ s/^\s*(.*)\s*$/$1/;
        $cycle_year=~ s/^\s*(.*)\s*$/$1/;
        print "$line\n";
        print "$cycle_code|$cycle_month|$cycle_year";
}

输出如下:

         1          10       2009
1           10       2009||

这里怎么了?

编辑: tmp_field_validation是sql查询的输出,它有一个select语句,如:

select cycle_code,cycle_month,cycle_year from ....

2 回复 | 直到 16 年前

toolic 16 年前

您应该在代码的顶部添加以下行:

use warnings;

use strict;
use warnings;

my @tmp_field_validation = ("         1          10       2009\n");

foreach my $line  (@tmp_field_validation)
{
        chomp $line;
        $line =~ s/^\s*//;
        my ($cycle_code,$cycle_month,$cycle_year)= split /\s+/, $line;
        print "$line\n";
        print "$cycle_code|$cycle_month|$cycle_year";
}

1          10       2009
1|10|2009

Konerak 16 年前

因为整行代码都存放在$cycle_code变量中。另外两个变量是空字符串。

推荐文章

KevInSol · 在FreeBSD的配置阶段,从源代码构建PHP时找不到libjpeg

1 年前

biera · PHP:pntl_exec即使提供了有效的可执行路径也无法工作

1 年前

sk123 · Shell脚本-如何在循环中显示变量名及其值

2 年前

user180574 · awk:尝试将时间戳字符串转换为unix epoch时间

2 年前

kerstoff0mega · 如何在SQL中将随机化的UNIX时间戳保持在特定的小时范围内?

2 年前

Kier Calimoso · 在Shell脚本中,您称“-a”或hypen/dash(-)之后的任何字母为什么?

2 年前

sai · unix中使用python进行数据重组

2 年前

FangQ · 如何使用jq打印由制表符“\t”分隔的JSON数组元素

2 年前

ROHAN · 我想显示包含一个括号的行,包括它的开头或结尾

2 年前

Geomicro · 删除模式sed之间的逗号

2 年前