File: setcountries.pl

package info (click to toggle)
sl-modem 2.9.9a-1
  • links: PTS
  • area: non-free
  • in suites: sarge
  • size: 2,220 kB
  • ctags: 1,671
  • sloc: ansic: 10,628; sh: 510; makefile: 233; perl: 11
file content (13 lines) | stat: -rw-r--r-- 219 bytes parent folder | download | duplicates (9) 
1
2
3
4
5
6
7
8
9
10
11
12
13
 
#!/usr/bin/perl

chomp( $list=`modem/slmodemd --countrylist 2>&1`);
$list =~s/\w+: //g;
$list =~s/\n/, /g;
open(t, "+<".$ARGV[0]);
@cont=<t>;
seek(t,0,0);
for(@cont) {
   $_=~s/_list_/$list/;
   print t $_;
}
close(t);