Realtor Leader wrote:
I would like a tool (eventually to be used online) that could convert MS =
Word documents into PDF files. I've reviewed CPAN and was surprised to =
not find any modules that would accomplish this task. Can anybody =
provide guidance to me on how I could produce a module to acc
hi zeus,
out of 12 fields
(query id; subject id; identity %; alignment length; mismatches; gap openings; q.
start; q. end; s. start; s. end; e-value; and bit score)
i required only 6
(subject id ; identity % ; alignment length; mismatches; q.start; q.end)
and two additional fields: gene and
gohaku wrote:
Hi everyone,
Working with a .wav file, I get one of these values "\x00" and
"\x00\x1b" which looks like
hexadecimal characters.
I tried sprintf, unpack, ord but I have no idea what I'm doing.
can anybody tell me how to interpret these values.
Not sure what you're asking. If you some
I lost your off list reply, so I'm replying here. (Please keep all
messages on list so others can help and benefit.)
aditi gupta wrote:
hi,
when u click at the link which i mentioned, you will find:
'search [Nucleotide] for [ ]'
when u'll paste a gi id e.g. gi|5104821|dbj|AP61.1| in sp
Jeff 'japhy' Pinyan wrote:
On Jun 11, JupiterHost.Net said:
Randy W. Sims wrote:
A better solution would be to allow only a subset of metacharacters,
escaping everything else. This would requre much more effort, but would
be safer. Perhaps there is a module that does something like this? If
not,
John W. Krahn wrote:
I don't think you understand how chomp() works:
perldoc -f chomp
chomp VARIABLE
chomp LIST
chomp This safer version of the chop entry elsewhere in
this document removes any trailing string that
corresponds to the current value of `$/' (also
Mandar Rahurkar wrote:
>
> Hi,
Hello,
> I have attached my routine and its output. I dont understand the
> output differemce between the @subj and $subjectno ? Why do I lose the
> trailing zeros ?
>
> Thanks Mandar
>
> @subj= cat somefile.txt
> print @subj;
>
> foreach (@subj) {
> $subj
@subj= cat somefile.txt
print @subj;
foreach (@subj) {
$subject_no=chomp($_);
This assigns the return value of chomp() to the variable not the
chomp'ed version of $_;
perldoc -f chomp
Try this, it works the the same each time :
perl -mstrict -we 'my @subj = ("01\n","02\n","03\n");print
@subj
Hi,
I have attached my routine and its output. I dont understand the
output differemce between the @subj and $subjectno ? Why do I lose the
trailing zeros ?
Thanks Mandar
@subj= cat somefile.txt
print @subj;
foreach (@subj) {
$subject_no=chomp($_);
print $subject_no,"\n";
}
George Georgalis wrote:
In my perl notes I found this for recursive replace
I want to replace all instances of oldstring with newstring in html
files, ./ and below.
perl -i -e 's/oldstring/newstring/g;' $( find ./ -name '*.html' )
I know how to script it up with sed, but I'm interested in why
[EMAIL PROTECTED] wrote:
$field = "Search, This is part of the code.";
## We need to split by spaces. The issue is that the comma comes along.
local(@words) = split('\s+', $field);
foreach $word (@words) {
if ($word =~ /Search/i) {
$word =~ s/[,\]\)\}]\b//;
$word =~
On Jun 14, [EMAIL PROTECTED] said:
>$field = "Search, This is part of the code.";
I have marked the word boundaries (the places in your string that are
matched by \b) with # signs:
#Search#, #This# #is# #part# #of# #the# #code#.
A word boundary is defined as the position in a string where a wor
In my perl notes I found this for recursive replace
I want to replace all instances of oldstring with newstring in html
files, ./ and below.
perl -i -e 's/oldstring/newstring/g;' $( find ./ -name '*.html' )
I know how to script it up with sed, but I'm interested in why this
one-liner is not
Hello All,
I hope you all are doing well.
I am trying to get this code to work correctly and I have used another Perl Guru's
code [Thanks Charles Clarkson] to get this far, but I am still unsure about a few
things...
I am trying to read a file (attached). and I am trying to make a csv file of
$field = "Search, This is part of the code.";
## We need to split by spaces. The issue is that the comma comes along.
local(@words) = split('\s+', $field);
foreach $word (@words) {
if ($word =~ /Search/i) {
$word =~ s/[,\]\)\}]\b//;
$word =~ s/\b[,\]\)\}]//;
> Hello everyone. I tried to post this already to googlegroups
> but it seems there must be something wrong since I didnt get
> any replies (maybe I did something wrong). So, here's the
> deal.
>
> I am starting to use Maketext for a Website and i have
> the following situation:
>
> Supose engli
> Hello world\n ;-)
>
> Im wondering about my perl. With this code:
> #!/usr/local/bin/perl
>
>
> use DBI;
> use strict;
>
> print "Test\n";
>
>
> ::$my_user = "blabla";
> my $password = "bloobbloob";
>
> my $logon = Adabas::logon("demo,adabas","mycomp:mydb");
>
> I got somethink like that:
Hello everyone. I tried to post this already to googlegroups
but it seems there must be something wrong since I didnt get
any replies (maybe I did something wrong). So, here's the
deal.
I am starting to use Maketext for a Website and i have
the following situation:
Supose english is my default l
On Sat, 2004-06-12 at 08:30 -0700, David Storrs wrote:
> On Fri, Jun 11, 2004 at 01:07:54PM +0100, mike wrote:
> > Has anyone ever come accross this wied problem before
> >
> > I have a script which pulls records from a DB then loops into a form and
> > shows each record, with the id no being conc
Hello world\n ;-)
Im wondering about my perl. With this code:
#!/usr/local/bin/perl
use DBI;
use strict;
print "Test\n";
::$my_user = "blabla";
my $password = "bloobbloob";
my $logon = Adabas::logon("demo,adabas","mycomp:mydb");
I got somethink like that:
Global symbol "$chris_test_var" req
This is an update if you have been following this thread.
From: aditi gupta [mailto:[EMAIL PROTECTED]
Sent: Monday, June 14, 2004 12:48 AM
To: Zeus Odin
Subject: RE: getting online information
hi,
there are following 12 fields:
1
gi|37182815|gb|AY358849.1|
2
Or you can use the in() function from Win32::OLE, which will enumerate
all objects within a container
use Win32::OLE qw(in);
foreach my $obj_Story(in($newdoc->StoryRanges)){
-Original Message-
From: Ichim, Adrian N. [mailto:[EMAIL PROTECTED]
Sent: Monday, June 14, 2004 12:12 AM
To: [
>
> my $newdoc = $word->ActiveDocument;
> foreach my $obj_Story ($newdoc->StoryRanges ){
>$obj_Story->Fields->{Update}; ==> Cannot find object
>while ($obj_Story->NextStoryrange != ""){
> $obj_Story = $obj_Story->NextStoryRange;
> $obj_Story->Fi
23 matches
Mail list logo
