先报到一下

爱知

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

1^# 爱知发表于 2008-08-27 19:56

先报到一下

今天开始学习perl了
先报到一下
以后还请大家多多帮助哦

^_^ ^_^ ^_^

lujx

UID: 19039
帖子: 132
积分: 303
在线时间: 1 天

2^# lujx 发表于 2008-08-27 20:11

多多帮助

forlorngenius

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

3^# forlorngenius 发表于 2008-08-27 20:11

welcome

爱知

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

4^# 爱知发表于 2008-08-27 22:01

Perl 语言入门(第四版)

刚学习了第一，二章，把自己写的代码贴出来，有什么错误和需要改进的地方还望大家指正一下

[Copy to clipboard] [ - ]

CODE:

$cat a.1 a.2
#!/usr/bin/perl
$pi=3.141592654;
chomp($r=<STDIN>);
while($r!=0)
  {
  if($r>0)
{
print 2*$pi*$r ."\n";
}
  else
{
print 0 ."\n";
}
  chomp($r=<STDIN>);
  }
#!/usr/bin/perl
chomp($a=<STDIN>);
chomp($b=<STDIN>);
print $a x $b ."\n";
$

运行：

[Copy to clipboard] [ - ]

CODE:

$perl a.1
12.5
78.53981635
-12.5
0
0
$perl a.2
1.4
2
1.41.4
$

0vk0

UID: 8671
帖子: 142
积分: 326
在线时间: 1 天 3 小时

5^# 0vk0 发表于 2008-08-28 10:42

还是先看看版规吧

爱知

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

6^# 爱知发表于 2008-08-28 11:12

谢谢提醒

爱知

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

7^# 爱知发表于 2008-08-28 11:21

看了版规后
自认为该帖是水贴
建议版主删此帖

初次冒犯，还望原谅，下不为例
^_^

lujx

UID: 19039
帖子: 132
积分: 303
在线时间: 1 天

8^# lujx 发表于 2008-08-28 20:23

下不为例

cobrawgl

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

9^# cobrawgl 发表于 2008-08-28 21:06

下不为例

forlorngenius

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

10^# forlorngenius 发表于 2008-08-28 21:40

下不为例