还有一个问题比较简单...谢谢大家啊

月亮爱猫猫

UID: 12848
帖子: 143
积分: 328
在线时间: 1 天 4 小时

1^# 月亮爱猫猫发表于 2007-12-11 13:04

还有一个问题比较简单...谢谢大家啊

用perl实现cp的功能不需要功能参数
只要用两个文件平作为参数就好了...
谢谢啊.....

G00GLE

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

2^# G00GLE 发表于 2007-12-11 13:14

  1 #!/usr/bin/perl -w

  2 #

  3 # Author: Scott.zhou

  4 # Date: Tue Dec 11 11:13:01 2007

  5 #

  6 use strict;
  7
  8 if ($#ARGV + 1 != 2) {

  9    print "Usage ./mcopy src_file dst_file\n";
10    exit;
11 }
12
13 open IFD, "<$ARGV[0]" or die "Cannot open $ARGV[0]\n";
14 open OFD, ">$ARGV[1]" or die "Cannot open $ARGV[1]\n";
15
16 while (my $line = <IFD>) {
17    print OFD $line;
18 }
19
20 close IFD;
21 close OFD;

还是比较基础的，楼主要加强练习呀。

月亮爱猫猫

UID: 12848
帖子: 143
积分: 328
在线时间: 1 天 4 小时

3^# 月亮爱猫猫发表于 2007-12-11 13:17

嗯嗯谢谢你啊我刚开始学
老师讲课又太快
听得不是很好
谢谢你啊

G00GLE

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

4^# G00GLE 发表于 2007-12-11 13:21

跟不上老师的进度就要做好预习工作了，而且课后要多复习啊

还有一个问题 比较简单...谢谢大家啊

还有一个问题 比较简单...谢谢大家啊

还有一个问题比较简单...谢谢大家啊

还有一个问题比较简单...谢谢大家啊