[Win]显示拖入文本的字节值

正则表达式、字符编码、字符处理

[Win]显示拖入文本的字节值

帖子523066680 » 2015-12-09 21:16

Syntax: [ Download ] [ Hide ]
use Encode;
use strict;

my $txt;
while (1) 
{
    print "Input:";
    $txt=<STDIN>;
    chomp $txt;
    $txt=~s/\"//g;   #"
 
    if ( -$txt ) {
        show($txt);
    } elsif ( $txt=~/exit/) {
        exit();
    } else {
        print "'$txt' not exists.\n";
    }
}
<STDIN>;

sub show 
{
    print "\nReading text file : $_[0]\n";
    open FILE, "<:raw","$_[0]" or 
                die "file not exist: $!\n"; 

    my @all=<FILE>;
    grep { xcode($_, 'x') } @all;
    close FILE;
}

sub xcode 
{
    # xcode("string",'Mode'); Mode = x(hex), b(bin), d(int)
    grep 
        { print sprintf ("%l$_[1] ", ord($_)) } 
    split(//,$_[0]);

    print "\n\n";
}
论坛已转移 Code-By.Org 群号 322023604
头像
523066680
版主
 
帖子: 1680
注册: 2012-03-06 15:08

回到 文本处理

在线用户

正在浏览此版面的用户:没有注册用户 和 1 位游客

cron
Not able to open ./cache/data_global.php