my %hash;
while(<>)
{
chomp();
if( /("(.+?)")/ )
{
$hash{$1} = "";
}
}
foreach (sort(keys %hash))
{
print ;
print "\n";
}
常见问题
相关文章
猜你喜欢
- 批量下载书籍，慎用 2015-12-14
- simple http proxy 2015-12-14
- perl爬虫收集当前页面所以链接地址，不需要用HTML::LinkExtor模块 2015-12-14
- 使用perl socket 在WINDOWS DHCP服务上 实现ip绑定 2015-12-14
- sort 自定义函数排序 2015-12-14
- 查找重复文件 2015-12-14
- 结合Zabbix做MySQL相关性能参数 2015-12-14
- perl 等待打点功能实现。休闲代码：） 2015-12-14
- Perl 一个简单的 GUI 程序，有退出按钮 2015-12-14
- Perl 调用 SetAttributes 修改文件属性 （Windows） 2015-12-14
