- 论坛徽章:
- 307
|
测试平台, Windows 7
- #!/usr/bin/perl
- use strict;
- use warnings;
- use utf8;
- use Encode;
- print(encode('cp936', join(',', @$_))) for sort {$a->[0] <=> $b->[0]} map {[split(/,/, $_, 2)]} <DATA>
- __DATA__
- 1137388,1921681253无线路由器设置的方法谁能教下我?
- 1149955,1921681691路由器设置的方法是什么?
- 1264003,1921681100路由器设置怎么操作?
- 1286556,1921681103路由器设置的方法是什么?
- 1576118,1921681102路由器设置密码方法是什么
- 1386788,21913522325默认网关怎么设置?
- 2291470,14501000430配电柜价格是多少谁清楚?
- 2463755,13713938913送的4g无线网卡怎么用的
- 310340,075523181365是贵司的**吗
- 310341,075523181365是贵司的联系**吗?
复制代码
perl abc.pl
-------------------------------------------------------------
310340,075523181365是贵司的**吗
310341,075523181365是贵司的联系**吗?
1137388,1921681253无线路由器设置的方法谁能教下我?
1149955,1921681691路由器设置的方法是什么?
1264003,1921681100路由器设置怎么操作?
1286556,1921681103路由器设置的方法是什么?
1386788,21913522325默认网关怎么设置?
1576118,1921681102路由器设置密码方法是什么
2291470,14501000430配电柜价格是多少谁清楚?
2463755,13713938913送的4g无线网卡怎么用的 |
|