perl引用的实例

发布时间：2020-12-16 00:32:50 所属栏目：大数据来源：网络整理

导读：$ cat country Chicago,USA Frankfurt,Germany Berlin,Germany Washington,USA Helsinki,Finland New York,USA ? #!/usr/bin/perl?-w? use?strict;? my?% table ;? my?($city,$country);? while?()?{? ?chomp;? ?my?($city,$country)?=?split?/,/;? ?push?@{

$ cat country
Chicago,USA
Frankfurt,Germany
Berlin,Germany
Washington,USA
Helsinki,Finland
New York,USA

 
 
#!/usr/bin/perl?-w?
  
  use?strict;?
  
  my?%table;?
  
  my?($city,$country);?
  
  while?(<>)?{?
  
  ?chomp;?
  
  ?my?($city,$country)?=?split?/,/;?
  
  ?push?@{$table{$country}},$city;?
  
  }?
  
  ?
  
  foreach?$country?(sort?keys?%table){?
  
  ?print?"$country:";?
  
  ?my?@cities?=?@{$table{$country}};?
  
  ?print?join?',',?sort?@cities;?
  
  ?print?".n";?
  
  ?
  
  }?
  
  ?

result：

$ perl country.pl country ?Finland:Helsinki. ?Germany:Berlin,Frankfurt. ?USA:Chicago,New York,Washington.

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!