高手来帮忙解两道题，在线等！！！

ForeverZJay

1.Write a perl script called perl_digits.pl which takes any number of
arguments. The script should return the number found by deleting all
non-digits.

Example:

"./perl_digits.pl and1 pan2d 30rr and 4"

will return 12304

[Note: return, not output]

2.Write a perl script called perl_friends.pl called with two arguments:
<phonebook> (a file) and <string> (a string). The function prints out each line of the
file <phonebook> beginning with "name:" and for which the rest of the
line matches <string> case insensitively.  

Example:

$ ./perl_friends.pl /usr/local/unixexam-data/newstuff/phonebook.txt and
name:Andrew Phillip
name:Naomi Andrews
$


本人刚接触Unix不久，多谢大家赐教，谢谢！

ForeverZJay

高手们呢？

Shell_Er

#!/usr/bin/perl
use strict;
use warnings;

##declaration of variables
my @args = ();
my $argument;
my $ret_str = "";
@args = @ARGV;

foreach  $argument ( @args ) {
        $argument =~ s/\D*//g;
        $ret_str .= $argument;
}

print $ret_str;

Shell_Er

#!/usr/bin/perl
use strict;
use warnings;

##declaration of variables
my $FILENAME = "";
my $string = "";
my @lines = ();
my $item = "";

($FILENAME,$string) = @ARGV;

sub Get_Contents_From_File(){
        my $filename = shift;
        my @contents = ();
        open(FH,$filename) or die "can not open file $filename, $!";
        @contents = <FH>;
        close(FH);
        return @contents;
}

@lines = &Get_Contents_From_File($FILENAME);

foreach $item ( @lines ) {
        if ( $item =~ /^name\:.*$string.*/i) {
                print $item ;
        }
}

ForeverZJay

我执行一下 ，谢谢Shell_Er 了先！！！！

Shell_Er

提问的基本原则

QUOTE:
请确保自己已尝试过写代码，并且在写的过程遇到了问题，才在这里提问。
纯粹的"do my homework for me"的提问方式，在本版绝不欢迎。
这里不是code writer，这里只是help解决问题的地方。

偶保留对这样的提问帖子封贴的权利，请见：
http://bbs.chinaunix.net/viewthr ... &extra=page%3D2


--兰花仙子

[ 本帖最后由 兰花仙子 于 2006-3-14 19:41 编辑 ]



您对本贴的看法：鲜花[0] 臭蛋[0]

__________________________________

ForeverZJay

对于第一个问题，执行后应该直接得出的是数字 ，为什么你的脚本执行后数字出现的是在 $符号的前面
例如我运行 ./perl_digits.pl 2sdakj30dakj2
执行结果是： 2302-bash-4.0.$ , 而不是直接得到2302？？

迫切且得到解答 ！！~~谢谢！

ForeverZJay

我已经尝试写着两个问题的代码，都无法成功执行，我再一下提供我做的两个代码，如果可以请高手帮忙指教，指出那里的错误，谢谢！
1.foreach $arg (@ARGV)
{
if($arg=~m/(\d+)/)
{
  $result.=$1;
  while ($'=~m/(\d+)/)
   {
     $result.=$1;
   }
}
}

2.#!/usr/bin/perl

open (INFILE, $ARGV[0]) || die "can't open the file $!\n";
while (<INFILE>
{
  if ($_=~m/^name\w*).*$ARGV[1]/i)
  {
   print $_;
  }
}

ForeverZJay

我已经被这两道问题困扰两天了，所以请不要封我的帖子，我只是请教，不是直接来问答案，谢谢版主。

iceberg77

原帖由 ForeverZJay 于 2009-5-8 17:16 发表
我已经尝试写着两个问题的代码，都无法成功执行，我再一下提供我做的两个代码，如果可以请高手帮忙指教，指出那里的错误，谢谢！
1.foreach $arg (@ARGV)
{
if($arg=~m/(\d+)/)
{
  $result.=$1;
  wh ...

第一段程序是可行的，不知LZ执行时是出什么错误，但既然知道$'，为何不直接用$&
第二段程序，看题目只是说要匹配的字串是大小写不敏感，并没有说name是大小写不敏感的，而且如果命令行参数传的字串带有特殊字符，这个正则就有可能出错

#!/usr/bin/perl -w use strict; my $result; foreach my $arg (@ARGV) {     while($arg =~ m/\d+/g){         $result .= $&;     } } print "result=$result\n";

#!/usr/bin/perl -w use strict; open (INFILE, $ARGV[0]) || die "can't open the file $!n"; while (<INFILE>){     if ($_ =~ m/^name:.*(?i)\Q$ARGV[1]/){         print $_;     } }

BTW, "-bash-4.0.$"是shell提示符，因为打印2302的时候没有换行

执行结果是： 2302-bash-4.0.$ , 而不是直接得到2302？？

[ 本帖最后由 iceberg77 于 2009-5-18 15:20 编辑 ]