0

Perl (v5.10) を使用して、スペース、コンマ、およびその他の英数字以外の文字に 8 進値が埋め込まれた別のアプリケーションからの文字列を処理する必要があります。

例: 「11624\0040SE\00405th\0040St\0054\0040Suite\0040100」は、「11624 SE 5th St, Suite 100」となります。

Linux コマンド ラインで「echo -e」を使用して探していることを実行できますが、Perl スクリプトで処理および操作できる必要があります。

axiar@formdev$echo -e "11624\0040SE\00405th\0040St\0054\0040Suite\0040100"

11624 SE 5th ストリート、スイート 100

私は String::Escape モジュールを見てきましたが、私が考えていることをしていないようです。

use String::Escape qw(backslash unbackslash);
my $strval="11624\0040SE\00405th\0040St\0054\0040Suite\0040100";
my $output=unbackslash($strval);
printf("%s\n",$strval);
printf("%s\n",$output);

同様の質問/回答を求めて、Google および Stack Overflow で多数の検索を行ってきましたが、まだ見つかっていません。

専門家の支援をいただければ幸いです。

4

1 に答える 1