[Perl] Does m/\x0A/ same as m/\x{0A}/ ?


 
Thread Tools Search this Thread
Top Forums Shell Programming and Scripting [Perl] Does m/\x0A/ same as m/\x{0A}/ ?
# 1  
Old 05-23-2012
[Perl] Does m/\x0A/ same as m/\x{0A}/ ?

Perl allow hex character with just one digit.
Such as \x0 \x9 \xA.

How to force to use 2 digits in m// and s///.
Such as \x00 \x09 \x0A.

---------- Post updated at 05:20 PM ---------- Previous update was at 03:38 PM ----------

I don't know why these code replace as text, not a real hex binary code.
Code:
$s1 = "83 C4 0C 85 C0 75 ??";
$r1 = "83 C4 0C 85 C0 90 90";

$s1 = convert($s1);
$r1 = convert($r1);

sub convert
{
    $i =  shift(@_);
    $i =~ s#(\w\w)#\\x\{\1\}#g;
    $i =~ s#(\?\?)#\.#g;
    $i =~ s#\s##g;
    return $i;
}

open(IN,$file);
binmode(IN);
read(IN,$bin,$filesize);
close(IN);

$bin =~ s/$s1/$r1/;
print $bin;

---------- Post updated at 05:25 PM ---------- Previous update was at 05:20 PM ----------

If i use these it work.

Code:
$s1 = "\x83\xC4\x0C\x85\xC0\x75."; 
$r1 = "\x83\xC4\x0C\x85\xC0\x90\x90";  

open(IN,$file); 
binmode(IN); 
read(IN,$bin,$filesize); 
close(IN);  

$bin =~ s/$s1/$r1/; 
print $bin;


Last edited by natong; 05-23-2012 at 07:26 AM.. Reason: Code tags.
Login or Register to Ask a Question

Previous Thread | Next Thread

10 More Discussions You Might Find Interesting

1. Programming

PERL: In a perl-scripttTrying to execute another perl-script that SETS SOME VARIABLES !

I have reviewed many examples on-line about running another process (either PERL or shell command or a program), but do not find any usefull for my needs way. (Reviewed and not useful the system(), 'back ticks', exec() and open()) I would like to run another PERL-script from first one, not... (1 Reply)
Discussion started by: alex_5161
1 Replies

2. Shell Programming and Scripting

Printf transforms \x0a into \x00

If printf '\x0a' | xxd -cols 1produces 0000000: 0a .then, why does printf '%c' "`printf '\x0a'`" | xxd -cols 1produce 0000000: 00 .?? (2 Replies)
Discussion started by: vomv1988
2 Replies

3. UNIX for Advanced & Expert Users

perl and HP-UX : instmodsh in combination with software depot : update inventory for installed Perl

we create a HP-UX software depot with a new perl-modul. after installation of the software depot, the perl module i can't find with instmodsh in the inventory for installed Perl modules. - i have learned of using instmodsh command : i find out what modules are already installed on my system. ... (0 Replies)
Discussion started by: bora99
0 Replies

4. Shell Programming and Scripting

HELP on Perl array / sorting - trying to convert Korn Shell Script to Perl

Hi all, Not sure if this should be in the programming forum, but I believe it will get more response under the Shell Programming and Scripting FORUM. Am trying to write a customized df script in Perl and need some help with regards to using arrays and file handlers. At the moment am... (3 Replies)
Discussion started by: newbie_01
3 Replies

5. Shell Programming and Scripting

Hidden Characters in Regular Expression Matching Perl - Perl Newbie

I am completely new to perl programming. My father is helping me learn said programming language. However, I am stuck on one of the assignments he has given me, and I can't find very much help with it via google, either because I have a tiny attention span, or because I can be very very dense. ... (4 Replies)
Discussion started by: kittyluva2
4 Replies

6. Shell Programming and Scripting

Perl :How to print the o/p of a Perl script on console and redirecting same in log file @ same time.

How can i print the output of a perl script on a unix console and redirect the same in a log file under same directory simultaneously ? Like in Shell script, we use tee, is there anything in Perl or any other option ? (2 Replies)
Discussion started by: butterfly20
2 Replies

7. Shell Programming and Scripting

Replacing hex characters '\x0D' with '\x0D\x0A'

Hello All, I have a requirement where I need to replaced the hex character - '\x0D' with 2 hex characters - 'x0D' & 'x0A' I am trying to use SED - But somehow its not working. Any pointers? Also the hex character '\x0D' can occur anywhere in the line. Can this also be accomplished... (6 Replies)
Discussion started by: paragkalra
6 Replies

8. Shell Programming and Scripting

Passing date formats in Perl: i.e. Jul/10/2007 -> 20070710 (yyyymmdd) - Perl

Hi , This script working for fine if pass script-name.sh Jul/10/2007 ,I want to pass 20070710(yyyymmdd) .Please any help it should be appereciated. use Time::Local; my $d = $ARGV; my $t = $ARGV; my $m = ""; @d = split /\//, $d; @t = split /:/, $t; if ( $d eq "Jan" ) { $m = 0 }... (7 Replies)
Discussion started by: akil
7 Replies

9. Shell Programming and Scripting

remove \x0a in unix

hi all, i have a flat file delimited by pipe (|), and i'm loading it to sybase, the problem is when i do a select to the table of the database, the last field has new line ascii (\x0a): 38,'0\x0a ' 88,'076004074028\x0a ' 27,'076004075023\x0a ' how can i remove the \x0a from... (1 Reply)
Discussion started by: DebianJ
1 Replies

10. Shell Programming and Scripting

[Perl] Accessing array elements within a sed command in Perl script

I am trying to use a script to replace the header of each file, whose filename are stored within the array $test, using the sed command within a Perl script as follows: $count = 0; while ( $count < $#test ) { `sed -e 's/BIOGRF 321/BIOGRF 332/g' ${test} > 0`; `cat 0 >... (2 Replies)
Discussion started by: userix
2 Replies
Login or Register to Ask a Question