Any PERL Decompiler / code ?

[I BioKid]

Hi All.



for my cgi - this is working
file test1.cgi
test1.cgi: ASCII English text
[EMAIL PROTECTED]> strings test1.cgi

but still other programs are not showing the text / code
this is the message am getting for one of my program

file alignscr.p

alignscr.p: ELF 32-bit LSB executable, Intel 80386, version 1 (SYSV), for
GNU/Linux 2.2.5, dynamically linked (uses shared libs), not stripped

am attaching the file - please find  a way to see the code
--
Thanks & Regards to all !!!

Re: Any PERL Decompiler / code ?

[Chad Perrin]

On Sat, Jun 24, 2006 at 02:56:06PM +0530, I BioKid wrote:
> 
> for my cgi - this is working
> file test1.cgi
> test1.cgi: ASCII English text
> [EMAIL PROTECTED]> strings test1.cgi
> 
> but still other programs are not showing the text / code
> this is the message am getting for one of my program
> >file alignscr.p
> alignscr.p: ELF 32-bit LSB executable, Intel 80386, version 1 (SYSV), for
> GNU/Linux 2.2.5, dynamically linked (uses shared libs), not stripped
> 
> am attaching the file - please find  a way to see the code

It looks like it is indeed a case of Perl scripts that have been
packaged with a parser and encrypted to make it difficult to read the
files.  I'm afraid I haven't any help to offer, other than suggesting
you get the guy who wrote it to decrypt it for you.

-- 
CCD CopyWrite Chad Perrin [ http://ccd.apotheon.org ]
"The ability to quote is a serviceable
substitute for wit." - W. Somerset Maugham

-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
 

CGI Script to pass a file to different servers

[I BioKid]

hi all,
I need to pass a file from a cgi program to another remote cgipgms and I
need to
print the out on my web page - how to do it ? any idea ?

I posted this query few back - but still I couldnt do  it :(

--

RE: CGI Script to pass a file to different servers

[Jeff Peng]

I once did the things like you said.I wrote a socket server on another 
host,then my cgi scripts put the requests to remot socket server,got the 
results from socket server and print the results to clients' browser.




From: "I BioKid" <[EMAIL PROTECTED]>
To: beginners@perl.org
Subject: CGI Script to pass a file to different servers
Date: Sat, 24 Jun 2006 17:09:58 +0530

hi all,
I need to pass a file from a cgi program to another remote cgipgms and I
need to
print the out on my web page - how to do it ? any idea ?

I posted this query few back - but still I couldnt do  it :(

--




--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
 

CSV file that can be loaded to Microsoft Outlook

[Mihir Kamdar]

hi,

I have written a perl script whose output is a CSV file(semicolon seperated)
in keeping reference to the Outlook Address Book. But whenever I am
importing the file to Outlook, it gives me some data error, and does not get
imported.

Can anybody help me on this??

thanx,
mihir

RE: CSV file that can be loaded to Microsoft Outlook

[Ryan Frantz]

> -Original Message-
> From: Mihir Kamdar [mailto:[EMAIL PROTECTED]
> Sent: Saturday, June 24, 2006 10:41 AM
> To: beginners
> Subject: CSV file that can be loaded to Microsoft Outlook
> 
> hi,

Howdy,

> 
> I have written a perl script whose output is a CSV file(semicolon
> seperated)

'CSV' means _Comma_ Separated Values.  Semicolons won't work.

ry

> in keeping reference to the Outlook Address Book. But whenever I am
> importing the file to Outlook, it gives me some data error, and does
not
> get
> imported.
> 
> Can anybody help me on this??
> 
> thanx,
> mihir

--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
 

Re: Any PERL Decompiler / code ?

[Eugene Kosov]

Mr. Shawn H. Corey пишет:

BTW, there is no such thing as a decompiler. At best you may find a
disassembler. That is a program that takes a binary and produces the
assembler code from it.


How about Java decompiler? ;)

--
BR,
Eugene Kosov

--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
 

RE: CSV file that can be loaded to Microsoft Outlook

[Mr. Shawn H. Corey]

On Sat, 2006-24-06 at 10:50 -0400, Ryan Frantz wrote:
> 'CSV' means _Comma_ Separated Values.  Semicolons won't work.

CSV are also doubly escaped. Commas in CSV are escaped by placing them
inside double-quotes. Double-quotes, inside double-quotes, are escaped
by placing two in a row; but if they're outside double-quotes, there's
just one of them. The following is a valid CSV line:

,",",,"",""","""

Confused? I recommend you find a module in CPAN to format your output
correctly.

http://search.cpan.org/


-- 
__END__

Just my 0.0002 million dollars worth,
   --- Shawn

"For the things we have to learn before we can do them, we learn by doing them."
  Aristotle

* Perl tutorials at http://perlmonks.org/?node=Tutorials
* A searchable perldoc is at http://perldoc.perl.org/



-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
 

Re: A loop to parse a large text file--output is empty!

[D. Bolliger]

Michael Oldham am Freitag, 23. Juni 2006 18:20:
> Hello again,

Hi Michael again,

> Thanks to everyone for their helpful suggestions.  I finally got it to
> work, using the following script.  However, it takes about 5 hours to
> run on a fast computer.  Using grep (in bash), on the other hand, takes
> about 5 minutes (see below if you are interested).  Thanks again!
>
> SLOW perl script:
>
> #!/usr/bin/perl -w
>
> use strict;
>
> my $IDs = 'ID_all_X';
>
> unless (open(IDFILE, $IDs)) {
>   print "Could not open file $IDs!\n";
>   }
>
> my $probes = 'HG_U95Av2_probe_fasta';
>
> unless (open(PROBES, $probes)) {
>   print "Could not open file $probes!\n";
>   }
>
> open (OUT,'>','probe_subset.txt') or die "Can't write output: $!";
>
> my @ID = ;
> print @ID;
> chomp @ID;
>
> while (my $line = ) {
>   foreach my $identifier (@ID) {
>   if($line=~/^>probe:\w+:$identifier:/) {
>   print OUT $line;
>   print OUT scalar();
>   }
>   }
> }
> exit;
[...]


here's a skeleton how I would do it. It should run quite fast.
The creation of the lookup hash from file is left off as well
as the usage of a real input/output data files.

Hope this helps,
Dani


#!/usr/bin/perl
use strict;
use warnings;

# just a dummy, must be built from file.
#
my %lookup=map {$_=>1} ('1138_at','1102_s_at');

# This is the only regex we have to use. 
# Maybe split is faster, didn't test it.
#
my $re=qr/^.*?:.*?:(.*?):/;

# extract the target string for the selection test,
# test, and print if test ok
#
while () {
   print $_ if ~/$re/ and exists $lookup{$1};
}

__DATA__
>probe:HG_U95Av2:1138_at:395:301; 
Interrogation_Position=2631;Antisense;TGGCTCCTGCTGAGGTTTTCC
>probe:HG_U95Av2:107_at:543:519; Interrogation_Position=258; 
Antisense;CTACTCTCGTGGTGCACAAGGAGTG
>probe:HG_U95Av2:1156_at:528:483; 
Interrogation_Position=2054;Antisense;TGCAGGTGGCAGATCTGCAGTCCAT
>probe:HG_U95Av2:1102_s_at:541:589; 
Interrogation_Position=4316;Antisense;GTGAAGGTTGCTGAGGCTCTGACCC


-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
 

Re: Slurping a big file (WAS: Netiquette)

[Dave Gray]

On 6/23/06, Omega -1911 <[EMAIL PROTECTED]> wrote:

On 6/23/06, Dave Gray <[EMAIL PROTECTED]> wrote:
> On 6/23/06, Omega -1911 <[EMAIL PROTECTED]> wrote:
> > Shawn, I modified your example like so, was this correct?
> >
> > chomp( my $data1 =  ); # line 1
> > chomp( my $data2 =  ); # line 2
> > chomp( my $data3 =  ); # line 3
> > chomp( my $data4 =  ); # line 4
> > chomp( my $data5 =  ); # line 5
> > while(  ){
> >chomp;
> >push @past_bids, $_; # push remaining lines into array
> >}
> > close FILE;
>
> You still haven't told us WHY you want to keep the entire rest of the
> file you're reading in an array.
>

Actually, for this particular sub, I don't need the rest of the file and I
wasn't sure of the best method to extract the first five lines without
re-writing the file structure.

Your advice is welcomed and I would appreciate any clues or insight on an
efficient style of code.


Simply reading lines from a file does nothing to affect the file
itself, unless it happens to be a quantum file (ha ha), which it
isn't. You can omit the while loop and have exactly the same behavior
without wasting a lot of memory.

--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
 

best way of getting a web document

[Dan]

LWP or HTTP::Client?
i've used both and run across..some problems. HTTP::Client being the worst i 
think, comes up with errors sometimes (or most times, actually) when trying 
to retrieve a page, saying it can't do it.

I'm going to be writing something which reads and parses, then outputs RSS 
feeds, so i need the most reliable to fetch the feed, and pass me the body 
of the page so i can pass it to an xml parser of sort.

unless there's something else which can already do that? I thought (until i 
read more) that XML::RSS was the module for me, but it appears that's for 
creating, not parsing rss feeds.

any input greatly appreciated.

dan 



-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
 

Re: best way of getting a web document

[Mumia W.]

Dan wrote:

LWP or HTTP::Client?
i've used both and run across..some problems. [...]
i need the most reliable to fetch the feed, and pass me the body 
of the page so i can pass it to an xml parser of sort.


unless there's something else which can already do that? [...]


Hi Dan.

I've played with LWP before, and it worked okay.

Another option is to use the lynx web browser to fetch the page source. 
As far as I know, lynx cannot parse XML, so you'd have to use a separate 
XML parser after fetching the page with lynx.


More options for fetching pages are curl (the module) and curl (the 
program).


Foremost among the XML parsers is XML::Parser; however, CPAN has many 
XML parsing modules.




--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
 

CPAN::Shell install into customer dir

[JupiterHost.Net]

Howdy all :)

I've a plugin installer that installs certain Perl modules:

This is what it uses,

 CPAN::Shell->expand('Module', $module_name)->install();

which works fine as long as root is running it.

What I'd like to do is install the modules as an unprivileged user into 
/home/$user/perl


I tried setting $ENV{'PREFIX'}, $ENV{'PERL5LIB'}, to no avail.

Any one have any ideas if that can be done codewise without reverting to 
a shell command


(
 a) I want to use a module not shell out a command
 b) I want to use CPAN so it follows dependencies instead of 
Makefile.PL  -> make etc etc


Any insight into what I've missed would be absolutely excellent :)

TIA!

--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
 

Re: CPAN::Shell install into customer dir

[Anthony Ettinger]

Isn't it PERL_PREFIX?

On 6/24/06, JupiterHost.Net <[EMAIL PROTECTED]> wrote:

Howdy all :)

I've a plugin installer that installs certain Perl modules:

This is what it uses,

  CPAN::Shell->expand('Module', $module_name)->install();

which works fine as long as root is running it.

What I'd like to do is install the modules as an unprivileged user into
/home/$user/perl

I tried setting $ENV{'PREFIX'}, $ENV{'PERL5LIB'}, to no avail.

Any one have any ideas if that can be done codewise without reverting to
a shell command

(
  a) I want to use a module not shell out a command
  b) I want to use CPAN so it follows dependencies instead of
Makefile.PL  -> make etc etc

Any insight into what I've missed would be absolutely excellent :)

TIA!

--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
 






--
Anthony Ettinger
Signature: http://chovy.dyndns.org/hcard.html

--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]