Ubuntu中文论坛

代码： 全选

~/应用/脚本  ☎ cat url字串和utf8互转.pl 
#!/usr/bin/perl -w
my $str=$ARGV[0];
if ( $str =~ m/%([A-Fa-f0-9]{2})%.*/ )
{ $str =~ s/\%([A-Fa-f0-9]{2})/pack('C', hex($1))/seg; }
else
{ $str =~ s/([^A-Za-z0-9\/])/sprintf("%%%02X", ord($1))/seg; }

print $str."\n";

代码： 全选

~/应用/脚本  ☎ cat opera-open-file 
#!/bin/bash

opera `url字串和utf8互转.pl """$*"""`

代码： 全选

☎ cat opera-open-file 
#!/bin/bash

#opera `url字串和utf8互转.pl """$*"""`
opera `echo """$*"""|uni2ascii -a J`