Re: Help Me

2009-07-10 Thread Christer Ekholm
Steve Bertrand writes: > Umar Draz wrote: >> Hello Steve >> >> Thanks for your help. >> >> Would you please help me one thing more >> >> I have string e.g >> >> $str = "Hello this is my string (1020p0404), this string is not complete >> (1 034 400 3). now the string complte"; >> >> I want to

Re: error in qx

2007-10-26 Thread Christer Ekholm
"Sayed, Irfan (Irfan)" <[EMAIL PROTECTED]> writes: > Hi All, > > I am executing my $usr=qx("who am i"); to get the user id on unix > machine but it is giving error. sh: who am i: not found > > Please guide how to resolve this The problem is that you are trying to run the command "who am i" (w

Re: how to avoid "spawning" multiple process of the same script ..

2006-08-11 Thread Christer Ekholm
merlyn@stonehenge.com (Randal L. Schwartz) writes: > Use the "highlander" solution: > > #!/usr/bin/perl > > BEGIN { > use Fcntl ':flock'; > flock DATA, LOCK_EX | LOCK_NB or exit 0; # I'm already running > } > > [ rest of your script here ] > > __END__ > > To do this,

Re: sorting

2006-03-19 Thread Christer Ekholm
"Ash Varma" <[EMAIL PROTECTED]> writes: > Hi.. > > I have: > > $code[0][0] = "AAA" > $code[0][1] = "19.5" > $code[1][0] = "AAD" > $code[1][1] = "20.0" > $code[2][0] = "ZZZ" > $code[2][1] = "10.7" > $code[3][0] = "XXA" > $code[3][1] = "5.9" > $code[4][0] = "YXA" > $code[4][1] = "27.1" > $code[5][0]

Re: generating a wordlist from an array of arrays

2005-10-02 Thread Christer Ekholm
mark berger <[EMAIL PROTECTED]> writes: > hey list. i stuck with gererating a wordlist from a changing > multidimensional array. each entry in the array contains a list with the > possible values. > > fe: > > @wordlayout = ((a, b),# possible values for 1st char >(c),

Re: "Join" Function

2005-08-09 Thread Christer Ekholm
"Vineet Pande" <[EMAIL PROTECTED]> writes: > hi, > In the following code which reads a file.txt (SEE ATTACHMENT) where I > am trying to understand how to put the DNA sequence in to a single > string... > > print "enter file with DNA sequence: "; > $seqfile = ; > chomp $seqfile; > unless ( open(DNA