麻烦大家了，脑袋都糊涂了，请问这句赋值语句有问题吗？

zhouhaiming

UID: 13052
帖子: 41
积分: 94
在线时间: 2 小时

1^# zhouhaiming 发表于 2007-09-13 18:34

麻烦大家了，脑袋都糊涂了，请问这句赋值语句有问题吗？

$filestr = $templatecfg{OUTPUT_PATH}.'\'.'wf_'.lc($map_var->{TARGET_TABLE}).'_init.xml';

cobrawgl

UID: 21059
帖子: 1
积分: 2
在线时间: 10 分钟

2^# cobrawgl 发表于 2007-09-13 18:43

QUOTE:

原帖由 zhouhaiming 于 2007-9-13 18:34 发表
$filestr = $templatecfg{OUTPUT_PATH}.'\'.'wf_'.lc($map_var->{TARGET_TABLE}).'_init.xml';

有。

$filestr = $templatecfg{OUTPUT_PATH}.'\\'.'wf_'.lc($map_var->{TARGET_TABLE}).'_init.xml';

nkcsx

UID: 10161
帖子: 193
积分: 443
在线时间: 2 天 2 小时

3^# nkcsx 发表于 2007-09-13 18:46

单引号，没事

zhouhaiming

UID: 13052
帖子: 41
积分: 94
在线时间: 2 小时

4^# zhouhaiming 发表于 2007-09-13 18:49

朋友还是不行，不过有进步了，原来写完上面这句，下面的代码都变灰了，现在不灰了，不过还是执行不了
print "$filestr\n";都不行
什么原因啊？糊涂了

zhouhaiming

UID: 13052
帖子: 41
积分: 94
在线时间: 2 小时

5^# zhouhaiming 发表于 2007-09-13 18:50

这句话肯定有问题，是啊我也觉得单引号没事，可是不行啊，哪的问题呢，急的要死

cobrawgl

UID: 21059
帖子: 1
积分: 2
在线时间: 10 分钟

6^# cobrawgl 发表于 2007-09-13 18:50

QUOTE:

原帖由 zhouhaiming 于 2007-9-13 18:49 发表
朋友还是不行，不过有进步了，原来写完上面这句，下面的代码都变灰了，现在不灰了，不过还是执行不了
print "$filestr\n";都不行
什么原因啊？糊涂了

你贴个完整的代码嘛

zhouhaiming

UID: 13052
帖子: 41
积分: 94
在线时间: 2 小时

7^# zhouhaiming 发表于 2007-09-13 18:51

太长了，400多行源码

zhouhaiming

UID: 13052
帖子: 41
积分: 94
在线时间: 2 小时

8^# zhouhaiming 发表于 2007-09-13 18:54

单独打印$templatecfg{OUTPUT_PATH}和lc($map_var->{TARGET_TABLE})都行，就是把它们和其它字符串连起来就不行了，我都怀疑是Perl的问题了，就是简单的字符串相连啊，见鬼了
$templatecfg{OUTPUT_PATH}对应c:\parse\output
lc($map_var->{TARGET_TABLE})对应mid_plant_unit_reduce_pollute

cobrawgl

UID: 21059
帖子: 1
积分: 2
在线时间: 10 分钟

9^# cobrawgl 发表于 2007-09-13 18:55

QUOTE:

原帖由 zhouhaiming 于 2007-9-13 18:51 发表
太长了，400多行源码

我写个简单的测试，能打印啊

[Copy to clipboard] [ - ]

CODE:

#!/usr/bin/perl

use strict;
use warnings;

my %templatecfg;
my $map_var;

$templatecfg{OUTPUT_PATH} = qw{c:\parse\output};
$map_var->{TARGET_TABLE} = "mid_plant_unit_reduce_pollute";

my $filestr = $templatecfg{OUTPUT_PATH} . '\\' . 'wf_' . lc($map_var->{TARGET_TABLE}). '_init.xml';

print "$filestr\n";

--------------------------------------

>perl -w test.pl
c:\parse\output\wf_mid_plant_unit_reduce_pollute_init.xml
>Exit code: 0

zhouhaiming

UID: 13052
帖子: 41
积分: 94
在线时间: 2 小时

10^# zhouhaiming 发表于 2007-09-13 18:59

C:\>type ccc.pl
$a='123';
$b='bbb';
$c=$a.'\'.lc("$b");
print "$c\n";
C:\>perl ccc.pl
Can't find string terminator "'" anywhere before EOF at ccc.pl line 3.

是不是我的Perl有问题啊？怪了