opera `url字串和utf8互转.pl $@`
代码: 全选
~/应用/脚本 ☎ 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 """$*"""`