Try the code below. For a search string you can specify either hex codes
(e.g. '70 65 72 6C' or '7065726C') or binary data (e.g. 'perl').
---
use strict;
use Fcntl 'O_RDONLY';
use constant CHUNK_SIZE => 4096;
SearchBinary ('searchstring', 'path/to/file.ext');
sub SearchBinary {
my $search
Send mail to "[EMAIL PROTECTED]" with the following command
in the body of your email message:
subscribe ptk
-Original Message-
From: Scott Purcell [mailto:spurcell@;vertisinc.com]
Sent: Friday, November 15, 2002 8:01 AM
To: [EMAIL PROTECTED]
Subject: Perl TK List?
Importance: Low
Fellow Users,
I have built a tree of htmls from POD or even plain text files to allow my
colleagues to quickly view their various programmes, bat files, perl scripts
etc., not entirely unlike the ActivePerl User Guide but using a slightly
different approach. This is proving very popular but I woul
a very good one is
[EMAIL PROTECTED]
You can get a member (via www.stanford.edu) or you can
also post a non-member question (takes longer to be answered).
Gerhard PetrowitschTel.: +49 8151 270 126
SP
Original Message ---
Hello,
I am doing a simple interface and I ran into a problem with a widget method. Is there
an appropriate list to post a question on perl/TK?
Thanks,
Scott Purcell
Scott:
Whenever I had P/TK questions any of the Perl group I am subscribed to helped.
Hello,
I am doing a simple interface and I ran into a problem with a widget method. Is there
an appropriate list to post a question on perl/TK?
Thanks,
Scott Purcell | Developer | VERTIS | 555 Washington Ave. 4th Floor | St. Louis, MO
63101 |
T 314.588.0720 | F 314.588.0735 | [EMAIL PROTECTED]
Brian W Smith wrote:
>Fellow Users,
>I have a script which uses Win32::OLE and Win32::OLE::Variant to open an existing
>Excel workbook, select a particular worksheet, read it and then close the workbook.
>The following snippet illustrates this:
>use MyStuff; # home
Fellow Users,
I have a script which uses Win32::OLE and Win32::OLE::Variant to open an
existing Excel workbook, select a particular worksheet, read it and then
close the workbook.
The following snippet illustrates this:
use MyStuff; # home made package of
straight
What are the best ways to search a binary file for a specific sequence of
hex values? The sequence that I'm looking for is: FF D8 FF E0 00 10 4A 46
49 46 00. The files that I'm searching are 14K bytes in size. I suppose
the easiest way would be slurp the whole file in at once and then search for
-Original Message-
From: Nick Djurovich [mailto:nick_djurovich@;aimtechnology.com]
Sent: Thursday, November 14, 2002 5:17 PM
To: Ricci, Mark; [EMAIL PROTECTED]
Subject: RE: Pattern matching
Hi Mark,
Looking at the important part of the string ;
/search q=court reporting [...]
You coul
"optique" <[EMAIL PROTECTED]> wrote:
> forgive my poor english, :), I come form beijing, china.
It is better than my Chinese!
> my question is:
> @B = (1,2,3,4,5,6);
> @A = (3,6);
> and I want to remove 3 and 6 from @B, after that the @B
> will be (1,2,4,5).
> but, I don't want to use "foreach
-Original Message-
From: $Bill Luebkert [mailto:dbe@;wgn.net]
Sent: Friday, November 15, 2002 6:43 AM
To: optique
Cc: [EMAIL PROTECTED]
Subject: Re: Remove the Elements of Array A from Array B
optique wrote:
> forgive my poor english, :), I come form beijing, china.
>
> my question is:
Bullock, Howard A. wrote:
You could cheat a little instead of trying to do it with just a RE, use
an embeded tr/// or s///:
my $text = 'axxxccvvvacasdcxaswrefajjawerasdcxaswrefajhhaasera';
$text =~ s#(.*?)# my $x = $1; $x =~ tr/a/8/; sprintf '%s', $x
#eg;
Your two little dashes make my client
i just wanted to thank everyone for all the input and great examples, i now
have quite a few working options.
thanks again.
Original Message Follows
From: "Wagner, David --- Senior Programmer Analyst --- WGO"
<[EMAIL PROTECTED]>
To: 'Mike Brentlinger' <[EMAIL PROTECTED]>,
[EMAIL PROTE
You could cheat a little instead of trying to do it with just a RE, use
an embeded tr/// or s///:
my $text = 'axxxccvvvacasdcxaswrefajjawerasdcxaswrefajhhaasera';
$text =~ s#(.*?)# my $x = $1; $x =~ tr/a/8/; sprintf '%s', $x
#eg;
--
Thanks. The main problem I was having was I couldn't find th
optique wrote:
> forgive my poor english, :), I come form beijing, china.
>
> my question is:
> @B = (1,2,3,4,5,6);
> @A = (3,6);
> and I want to remove 3 and 6 from @B, after that the @B
> will be (1,2,4,5).
>
> but, I don't want to use "foreach" to iterate @B and @A
> Is there any easy way to d
forgive my poor english, :), I come form beijing, china.
my question is:
@B = (1,2,3,4,5,6);
@A = (3,6);
and I want to remove 3 and 6 from @B, after that the @B
will be (1,2,4,5).
but, I don't want to use "foreach" to iterate @B and @A
Is there any easy way to do this?
Best wish with
At 19:15 2002-11-14 -0500, Mike Brentlinger wrote:
ive played with Convert::UU to uuencode a binary file as some strings that
could be stored as just a variable in the script and i have examples that
uu encodes and uu decodes a exe just fine... the problem is that the
encoded strings have thing
18 matches
Mail list logo
