将字串全变为小写, 然后赋值

xinganling

UID: 23794
帖子: 43
积分: 98
在线时间: 2 小时

1^# xinganling 发表于 2008-08-07 11:00

将字串全变为小写, 然后赋值

有如下一段脚本:
#! /usr/bin/perl
$A="AbC oF CHina";
$B=print "\L$A";
print "$B\n";
目的是将$A全变为小写字母后再赋值给$B, 然后打印出$B的值. 但结果是输出如下信息:
abc of china1
看来是将赋值语句中的信息输出到屏幕上了, 再将print语句的结果1赋给了$B, 是这样吧? 那如何达成程序本来的目的呢? 请多赐教! 谢谢!!!

hdc1112

UID: 2620
帖子: 83
积分: 190
在线时间: 9 小时

2^# hdc1112 发表于 2008-08-07 11:01

$a="ABc";
$b=lc $a;
print $b;

如果一定要用你的办法那么是

$a="ABc";
($b=$a)=~s/(.*)/\L$1/;
print $b;

liangjian0

UID: 3519
帖子: 131
积分: 301
在线时间: 23 小时

3^# liangjian0 发表于 2008-08-07 11:06

呵呵我来随便看下啊

极品家丁

flw

UID: 21204
帖子: 144
积分: 331
在线时间: 1 天 4 小时

4^# flw 发表于 2008-08-07 11:06

这个……
你知道 print 是干啥使的吗？
........................

zhuomingliang

UID: 40835
帖子: 179
积分: 411
在线时间: 1 天 19 小时

5^# zhuomingliang 发表于 2008-08-07 11:07

($B= $A)=~ tr/A-Z/a-z/;

楼主基本功实在是不行啊。

forlorngenius

UID: 32353
帖子: 42
积分: 96
在线时间: 2 小时

6^# forlorngenius 发表于 2008-08-07 11:09

flw

UID: 21204
帖子: 144
积分: 331
在线时间: 1 天 4 小时

7^# flw 发表于 2008-08-07 11:10

QUOTE:

原帖由 zhuomingliang 于 2008-8-7 11:07 发表
$B= $A=~ tr/A-Z/a-z/;

楼主基本功实在是不行啊。

我看你的基本功也不咋地。
$B = lc $A;

xinganling

UID: 23794
帖子: 43
积分: 98
在线时间: 2 小时

8^# xinganling 发表于 2008-08-07 11:12

是的, 刚学的

谢谢大家, 俺试试

zhuomingliang

UID: 40835
帖子: 179
积分: 411
在线时间: 1 天 19 小时

9^# zhuomingliang 发表于 2008-08-07 11:14

QUOTE:

原帖由 flw 于 2008-8-7 11:10 发表

我看你的基本功也不咋地。
$B = lc $A;

我是做php 的，在php 里面是 strtolower.

caining062

UID: 30795
帖子: 25
积分: 57
在线时间: 1 小时

10^# caining062 发表于 2008-08-07 11:15

#!/usr/bin/perl -w
use strict;

$a = "AbC oF CHina";
$b = "\L$a\n";# $b = sprintf "\L$a\n"
print $b;