0

Perl 程序从包含来自不同域的不同电子邮件 ID 的文件中读取。并通过删除域部分列出用户名。

例子：

输入文件将包含：

abc@gmail.com 
xyz@yahoo.com 
pqr@test.com

输出文件应如下所示：

The domain gmail.com contains following userid: 
abc 
The domain yahoo.com contains following userid: 
xyz 
The domain test.com contains following userid:
pqr

我尝试使用该代码，但它只是将域和用户名分开，而不是根据域名列出用户名。

use strict;
print "Enter the file name where emailids of different domains are present\n";
my $file=<stdin>;
open(DATA, "$file") or die ("Could not open the file\n");
while(<DATA>){
    my @field=split(/@/, "$_" );
    chomp $_;
    my $username=@field[0];
    my $domain=@field[1];
    print "The user id is $username \nThe domain name is $domain \n";
}
close (DATA);
4

3 回答 3

1

为了保持这一点，您希望填充数组的散列而不是在找到地址时打印：

my %domains;

while(<DATA>){
  my @field=split(/@/, "$_" );
  chomp $_;
  my $username=$field[0];
  my $domain=$field[1];
  #print "The user id is $username \nThe domain name is $domain \n";
  push @{$domains{$domain}}, $username;
}
close (DATA); 

for my $domain (sort keys %domains) {
  print "The domain gmail.com contains following userid:\n";
  print "$_\n" for sort @{$domains{$domain}};
}

并沉迷于这就是我的做法：

#! /usr/bin/env perl
use common::sense;
use Email::Address;
use YAML 'Dump';

die "usage: $0 <file1> [<file2> ... <fileN>]\n" unless @ARGV;
# although <> reads STDIN in the absense of @ARGV,
# which is often what you want.

my %hosts;

while (<>) {
  for (Email::Address->parse($_)) {
    push @{$hosts{$_->host}}, $_->user
  }
}

print Dump \%hosts;

给定一个名为“file”的文件，其中包含：

abc @gamil.com 
abd @gamil.com 
abe @gamil.com 
xyz@yahoo.com 
xy1@yahoo.com 
xy2@yahoo.com 
pqr@test.com 
pqs@test.com 
pqt@test.com

这是用法和输出：

$ perl test
usage: test <file1> [<file2> ... <fileN>]
$ perl test file
---
gamil.com:
  - abc
  - abd
  - abe
test.com:
  - pqr
  - pqs
  - pqt
yahoo.com:
  - xyz
  - xy1
  - xy2

YAML的可读性和有用性。 Email::Address为我们节省了现在和将来的麻烦。

于 2013-05-17T04:00:07.817 回答
0

您的代码中几乎没有错误：

  1. 您需要@在字符串中转义为\@.
  2. 要定义 Perl 数组，请使用@array. 但是要寻址数组中的元素，您需要使用$: $array[0]。

这意味着，您的代码应如下所示：

use strict;
print "Enter the file name where emailids of different domains are present\n";
my $file=<stdin>;
open DATA, "$file" or die $!;
while (my $line = <DATA>) {
    chomp $line;
    my ($username, $domain) = split /\@/, $line;
    print "The user id is $username \nThe domain name is $domain \n";
}
close DATA;

我简化了一些事情，比如使用$line而不是$_让它更清晰，并立即将拆分的结果保存为变量，而不是创建额外的数组。

于 2013-05-17T03:53:02.323 回答
0

尝试这个

my $file=<stdin>;
my %hash;
open(DATA, "$file") or die ("Could not open the file\n");
while(<DATA>){ 
  chomp($_);
  my @field=split(/\@/, "$_" );
  chomp(@fields);
  push(@{$hash{$field[1]}},@field);
}
close (DATA);

您拥有哈希中的所有域及其用户名作为数组引用的值。您可以迭代它或使用 Dumper

于 2013-05-17T13:09:36.590 回答