Thanks Jim and John.
btw, what does the fileno mean? mean file-not-open?
--
To unsubscribe, e-mail: beginners-unsubscr...@perl.org
For additional commands, e-mail: beginners-h...@perl.org
http://learn.perl.org/
Hi,
I don't know which is the best way to check whether this file is open
or not,
Here it what I came out so far,
#!/usr/bin/env perl
use strict;
use warnings;
use autodie qw(open close);
use 5.012;
my $fn = new_30.pdb;
open my $fh, '', $fn;
my $ofh;
while(my $line = $fh){
On Friday 24,August,2012 07:28 PM, Sasikanth Eda wrote:
Hi All,
I am working on an automation scenario, where the steps mentioned below are
to be performed;
1. Script has to run on client machine.
2. Using the Perl script on client machine, we need to login to remote
machine-1 using
Hi,
I have a data file, wish to split into 9 small files, each one starts
2:MODEL1
1552:ENDMDL
1554:MODEL2
3104:ENDMDL
3106:MODEL3
4656:ENDMDL
till
12418:MODEL9
13968:ENDMDL
The left number are the line numbers.
I can get those 9 output file via some sed
On Thursday 23,August,2012 12:46 AM, Jim Gibson wrote:
On Aug 22, 2012, at 8:32 AM, lina wrote:
Hi,
I have a data file, wish to split into 9 small files, each one starts
2:MODEL1
1552:ENDMDL
1554:MODEL2
3104:ENDMDL
3106:MODEL3
4656:ENDMDL
till
12418
Hi,
I have written something as following,
my $template_file=template;
my $h_data_file=h_data;
open my $fh1, '', $template_file;
open my $fh2, '', $h_data_file;
while($fh2){
my ($h11,$h21,$h22,$h33)=split ' ', $_;
substitute($h11,$h21,$h22,$h33);
say
On Sun, Jul 29, 2012 at 11:19 PM, Andy Bach afb...@gmail.com wrote:
On Sun, Jul 29, 2012 at 10:01 AM, lina lina.lastn...@gmail.com wrote:
Strangely, it only substituted once, but not for the later once.
Thanks ahead for your suggestions, I don't know why,
Not exactly sure what you're up
Hi,
Today I tried to write my first hello script,
$ mojo generate lite_app hello
vim hello to the following:
get '/' = sub {
my $self = shift;
$self-render_text('Hello!');
};
$ morbo hello
[Thu Jul 5 17:49:39 2012] [info] Listening at http://*:3000;.
Server available at
Furthermore,
Host is up.
Other addresses for localhost (not scanned): 127.0.0.1
PORT STATESERVICE
3000/tcp filtered ppp
Thanks,
--
To unsubscribe, e-mail: beginners-unsubscr...@perl.org
For additional commands, e-mail: beginners-h...@perl.org
http://learn.perl.org/
On Thu, Jul 5, 2012 at 6:18 PM, David Precious dav...@preshweb.co.uk wrote:
On Thu, 5 Jul 2012 18:03:07 +0800
lina lina.lastn...@gmail.com wrote:
But on my two webbrowers when I tried localhost:3000 it failed to
open.
As in connection failed, or gave some other error?
Hi,
It shows
On Thu, Jul 5, 2012 at 7:14 PM, Octavian Rasnita orasn...@gmail.com wrote:
Have you tried localhost:3000 or the correct URL http://localhost:3000 ?
Yes. I tried again.
--Octavian
- Original Message -
From: lina lina.lastn...@gmail.com
To: beginners@perl.org
Sent: Thursday, July 05
Hi,
Is this book old?
http://www.kitebird.com/mysql-perl/
MySQL and Perl for the Web
Thanks with best regards,
--
To unsubscribe, e-mail: beginners-unsubscr...@perl.org
For additional commands, e-mail: beginners-h...@perl.org
http://learn.perl.org/
On Thu, Jun 28, 2012 at 4:44 PM, John W. Krahn jwkr...@shaw.ca wrote:
lina wrote:
Hi,
Hello,
I have some data like:
0.35 3.41 1
0.35 4.24 1
0.35 4.35 2
0.36 0.36 1
0.36 1.32 1
0.36 1.45 1
0.36 1.46 1
wish the output look like
0.36 1.32 1.45 1.46 3.41 4.24 4.35
0.35
On Fri, Jun 29, 2012 at 10:10 PM, Jim Gibson jimsgib...@gmail.com wrote:
On Jun 29, 2012, at 6:09 AM, lina wrote:
I have some data like:
0.35 3.41 1
0.35 4.24 1
0.35 4.35 2
0.36 0.36 1
0.36 1.32 1
0.36 1.45 1
0.36 1.46 1
wish the output look like
0.36 1.32 1.45 1.46 3.41
On Sat, Jun 30, 2012 at 12:21 AM, John W. Krahn jwkr...@shaw.ca wrote:
lina wrote:
On Thu, Jun 28, 2012 at 4:44 PM, John W. Krahnjwkr...@shaw.ca wrote:
lina wrote:
I have some data like:
0.35 3.41 1
0.35 4.24 1
0.35 4.35 2
0.36 0.36 1
0.36 1.32 1
0.36 1.45 1
0.36 1.46 1
wish
Hi,
I have some data like:
0.35 3.41 1
0.35 4.24 1
0.35 4.35 2
0.36 0.36 1
0.36 1.32 1
0.36 1.45 1
0.36 1.46 1
wish the output look like
0.36 1.32 1.45 1.46 3.41 4.24 4.35
0.35 0 0 0 0 11 2
0.36 1 1 1 1 00 0
Thanks ahead
On Thu, Jun 28, 2012 at 3:41 PM, lina lina.lastn...@gmail.com wrote:
Hi,
I have some data like:
0.35 3.41 1
0.35 4.24 1
0.35 4.35 2
0.36 0.36 1
0.36 1.32 1
0.36 1.45 1
0.36 1.46 1
wish the output look like
0.36 1.32 1.45 1.46 3.41 4.24 4.35
0.35 0 0 0 0
On Thu, Jun 28, 2012 at 4:44 PM, John W. Krahn jwkr...@shaw.ca wrote:
lina wrote:
Hi,
Hello,
I have some data like:
0.35 3.41 1
0.35 4.24 1
0.35 4.35 2
0.36 0.36 1
0.36 1.32 1
0.36 1.45 1
0.36 1.46 1
wish the output look like
0.36 1.32 1.45 1.46 3.41 4.24 4.35
0.35
Hi,
How to read the files last 13 lines,
only process the data of the last 13 lines, ignore the head parts.
Thanks with best regards,
--
To unsubscribe, e-mail: beginners-unsubscr...@perl.org
For additional commands, e-mail: beginners-h...@perl.org
http://learn.perl.org/
Hi,
$ for i in `seq -f '%02g' 1 10` ; do echo $i ; done
01
02
03
04
05
06
07
08
09
10
I wonder how can I get something like above in the perl.
Thanks ahead for your suggestions,
Best regards,
--
To unsubscribe, e-mail: beginners-unsubscr...@perl.org
For additional commands, e-mail:
On Mon, Jun 11, 2012 at 10:42 PM, Brian Fraser frase...@gmail.com wrote:
On Mon, Jun 11, 2012 at 10:49 AM, lina lina.lastn...@gmail.com wrote:
Hi,
$ for i in `seq -f '%02g' 1 10` ; do echo $i ; done
01
02
03
04
05
06
07
08
09
10
I wonder how can I get something like above
Hi,
Here is the to-be-processed file,
$ more try
# RESIDUE AA STRUCTURE BP1 BP2 ACC N-H--OO--H-N
N-H--OO--H-NTCO KAPPA ALPHA PHI PSIX-CA Y-CA
Z-CA
1 174 V 0 00 0, 0.0 2,-0.3 0,
0.0 0, 0.0 0.000 360.0 360.0 360.0 137.8
On Sat, Jun 9, 2012 at 12:16 AM, lina lina.lastn...@gmail.com wrote:
Hi,
Here is the to-be-processed file,
$ more try
# RESIDUE AA STRUCTURE BP1 BP2 ACC N-H--O O--H-N
N-H--O O--H-N TCO KAPPA ALPHA PHI PSI X-CA Y-CA
Z-CA
1 174 V 0 0 0 0
On Wed, Jun 6, 2012 at 1:45 AM, Shlomi Fish shlo...@shlomifish.org wrote:
Hi Lina,
On Tue, 5 Jun 2012 16:03:52 +0800
lina lina.lastn...@gmail.com wrote:
Hi,
I wrote one, but don't know make it mature.
Overall, your program is OK, but see below for my nitpicks.
Here is what I am going
Hi,
I wrote one, but don't know make it mature.
Here is what I am going to do.
43 43 40 1,
A c #FF /* 0 */,
B c #F8F8F8 /* 0.0385 */,
C c #F2F2F2 /* 0.0769 */,
D c #EBEBEB /* 0.115 */,
E c #E5E5E5 /* 0.154 */,
F c #DEDEDE /* 0.192 */,
G c #D8D8D8 /* 0.231 */,
H c #D1D1D1
Hi,
I have two files, one with
3
2
1
another is:
3 1
3 2
6 3
How can I insert the first file into the middle of the second file,
Thanks ahead for your suggestions,
Best regards,
--
To unsubscribe, e-mail: beginners-unsubscr...@perl.org
For additional commands, e-mail:
On Mon, May 7, 2012 at 7:52 PM, Shawn H Corey shawnhco...@gmail.com wrote:
On 12-05-07 03:36 AM, lina wrote:
How can I insert the first file into the middle of the second file,
What code have you tried so far and please provide the expected output for
your example.
I can only write some
Hi,
I have a text file like:
$ more sample.tex
aaa \cite{d1,d2},ddd \cite{e1},ccc \cite{f1,f2,f3}
bbb\cite{inhibitor}aaa
sub read_tex{
open my $fh, '', @_;
while($fh){
if(/cite\{(.+?)\}/){
push @citeditems,split/,/,$1;
}
On Sun, Apr 29, 2012 at 11:26 PM, Lawrence Statton lawre...@cluon.com wrote:
On 04/29/2012 10:21 AM, lina wrote:
Hi,
I have a text file like:
$ more sample.tex
aaa \cite{d1,d2},ddd \cite{e1},ccc \cite{f1,f2,f3}
bbb\cite{inhibitor}aaa
sub read_tex{
open my $fh
Thanks for Lawrence's crystal clear explaination and Shawn's reply.
I understand now, best regards,
P.S seems we don't have the same perldoc.
--
To unsubscribe, e-mail: beginners-unsubscr...@perl.org
For additional commands, e-mail: beginners-h...@perl.org
http://learn.perl.org/
On Monday 23,April,2012 01:27 AM, Jim Gibson wrote:
On Apr 22, 2012, at 9:52 AM, lina wrote:
Here is what I Have came up so far,
#!/usr/bin/env perl
use strict;
use warnings;
use autodie qw(open close);
use 5.012;
my $dict = system(tail -n 1 text_1.xvg);
Read the documentation
Hi,
suppose I wish to print 20 *
seems
print *{20} not work.
Thanks ahead for your sugestions,
Best regards,
--
To unsubscribe, e-mail: beginners-unsubscr...@perl.org
For additional commands, e-mail: beginners-h...@perl.org
http://learn.perl.org/
On Monday 23,April,2012 09:28 PM, lina wrote:
On Monday 23,April,2012 01:27 AM, Jim Gibson wrote:
On Apr 22, 2012, at 9:52 AM, lina wrote:
Here is what I Have came up so far,
#!/usr/bin/env perl
use strict;
use warnings;
use autodie qw(open close);
use 5.012;
my $dict = system(tail -n 1
On Sunday 22,April,2012 06:20 AM, David Christensen wrote:
On 04/21/2012 07:51 AM, lina wrote:
Thanks, I didn't realize that the ssh p3600 'do something' can do
something without being in the server.
Yes -- providing a command to ssh is a very useful. Check out the manual
page for more
Hi,
I have a series of files.
$ cat text_1.xvg
0 0 1 2 3
2 1 0 2 3
4 1 2 0 3
$ cat text_2.xvg
0 0 1 2 3
2 1 0 3 2
4 1 3 0 2
I wish to translate the text_2 numbers (except the first field) based on
the last line of the text_1.xvg
namely text_2.xvg will
On Saturday 21,April,2012 02:42 AM, David Christensen wrote:
On 04/20/2012 05:42 AM, lina wrote:
I used to ssh Mars (servers's name) and then cd to some directory and
check some file's modification time.
Can I do it locally with perl, without ssh?
A local Perl script will need some way
Hi,
I used to ssh Mars (servers's name) and then cd to some directory and
check some file's modification time.
Can I do it locally with perl, without ssh?
What I came so far is equal to null, but I am still google-ing.
Thanks ahead for your suggestions or template that I can work on.
Best
On Wed, Apr 4, 2012 at 8:57 PM, Anamika K anamika...@gmail.com wrote:
Hello All,
I have a file like this:
NM_009648,NM_001042541:1 0.955794504181601
NM_019584:1 0.900900900900901
NM_198862:1 0.835755813953488
NM_001039093,NM_001039092,NM_153080:1 0.805008944543828
and
Hi,
At some directory, I wish to check are there some new file generated with
step*
if no new generated, I wish it sleep for a while
if there are some new files generated, I wish it to send am email to myself.
Here is what I have came up so far,
#!/usr/bin/env perl
use strict;
use
Thanks now better. Just the send email still not work. With
Mail::Sendmail installed.
sendmail(
From= 'lina.lastn...@gmail.com',
To = 'lina.lastn...@gmail.com',
Subject = 'Step coming close',
Message = Dangerous,
);
Do I need set up something extra?
John
--
Any
I wish there is an alternative way in linux without installing use
Mail::Sendmail;
on bash I used
mail lina.lastn...@gmail.com report.txt
Thanks,
On Mon, Apr 2, 2012 at 4:07 PM, lina lina.lastn...@gmail.com wrote:
Thanks now better. Just the send email still not work. With
Mail::Sendmail
Hi,
I don't know how to send email in perl with
/usr/bin/mail
Thanks ahead for any suggestions
Best regards,
--
To unsubscribe, e-mail: beginners-unsubscr...@perl.org
For additional commands, e-mail: beginners-h...@perl.org
http://learn.perl.org/
On Mon, Apr 2, 2012 at 9:34 PM, Shawn H Corey shawnhco...@gmail.com wrote:
On 12-04-02 09:17 AM, lina wrote:
Thanks ahead for any suggestions
Have you tried searching CPAN for mail? http://search.cpan.org/
This short script is planned to use in remote server to check whether
has new file
On Mon, Apr 2, 2012 at 11:35 PM, Jim Gibson jimsgib...@gmail.com wrote:
At 4:08 PM +0800 4/2/12, lina wrote:
I wish there is an alternative way in linux without installing use
Mail::Sendmail;
on bash I used
mail lina.lastn...@gmail.com report.txt
If that works for you on your system
Hi,
I am so confused the time output result.
Time::tm=ARRAY(0x109c3b0)
Here is the code:
#!/usr/bin/env perl
use strict;
use warnings;
use autodie qw(open close);
use 5.012;
use Time::localtime;
use File::stat;
open my $fh, '', too0.tex;
my $time = localtime;
my $modtime =
#!/usr/bin/env perl
use strict;
use warnings;
use autodie qw(open close);
use 5.012;
open my $fh, '', '/etc/passwd';
open my $fh2, '', '/tmp/newpasswd';
my $uid;
my %h;
while($fh){
$uid = (split /\:/, $_)[0];
$h{$uid} = $_;
}
print $fh2 map $h{$_}, sort keys %h;
On Thu, Mar 29, 2012 at 6:08 PM, John W. Krahn jwkr...@shaw.ca wrote:
my wrote:
The goal of this assignment is to put in practice the list and I/O
functionalities implemented by Perl.
Write a program that will read a list from a file (input), will sort
the list in lexical order and write
Hi,
For
Rissman, R.; Poon, W. W.; Blurton, M.; Oddo, S.; Torp, R.
I wish to get the output as
R. Risman and W. W. Pooon and M. Blurtoon and S. Oddoo and R. Toorp, R.
Here is the code I came up so far, which works partially
#!/usr/bin/env perl
use strict;
use warnings;
use 5.012;
my
On Fri, Mar 23, 2012 at 10:20 AM, John W. Krahn jwkr...@shaw.ca wrote:
John W. Krahn wrote:
$ echo Hr 12
0001 2
0002 3
0003 1
Hr 13
0001 2
0002 3
0003 1
Hr 14
0001 2
0002 3
0003 1 | perl -e'
my ( @hours, %data );
while ( ) {
push @hours, $1 if /^hr\s*(\d+)/i;
$data{ $1
Hi,
I tried to write something, but chocked in the end,
Thanks ahead for your advice,
#!/usr/bin/env perl
use strict;
use warnings;
my %h = (
1 = a,
2 = b,
3 = c
);
foreach my $key ( sort keys %h){
$h{$h{$key}}=$key;
delete $h{$key};
}
foreach
email I
realize this.
Best regards,
--
Regards.
On 21.03.2012 17:00, lina wrote:
Hi,
I tried to write something, but chocked in the end,
Thanks ahead for your advice,
#!/usr/bin/env perl
use strict;
use warnings;
my %h = (
1 = a,
2 = b,
3 = c
);
foreach
Hi,
For the following keys, I wish the values to be the abbreviation of them,
Nat. Neurosci.
Expert Reviews in Molecular Medicine.
Intermolecular Forces
Nature Cell Biol.
CNS Neurol Disord Drug Targets
Nat. Rev. Mol. Cell Biol.
I came up one, not working though,
#!/usr/bin/env perl
use
Thanks for all of you.
my %abbrev;
open my $fh, '', 'try.txt';
while(my $line = $fh) {
chomp $line;
my $abbr = join '', $line =~ /[A-Z]/g;
$abbrev{$abbr} = $line;
Here I changed it to$abbrev{$line} = $abbre;
}
use Data::Dumper;
print Data::Dumper-Dump([\%abbrev],
Hi,
Here I have
...some blocks ...
@article{Bi07_chen,
author = {Chen, J. P. and Zhang, X. and Fernandez, A.},
journal = BIOINFOR,
volume = {23},
number = {5},
pages = {563-572},
year = {2007}
}
@article{MP08_Crespo,
author = {Crespo, A. and Fernandez, A.},
journal =
I updated a bit to
sr/bin/env perl
use strict;
use warnings;
use Carp qw(croak);
use autodie qw(open close);
use File::Basename;
croak Usage: ./bibextract.pl tex_file.tex unless defined $ARGV[0];
my $infile = $ARGV[0];
my $tex_file = $infile;
#my $bib_filename = /home/lina/texmf/bibtex/bib
open my $fh, '', $tex_file;
while($fh){
if(/cite\{(\S+)\}/){
$cited = sprintf %s\n,$1;
$cited =~ tr/\,/\n/;
push(@citeditems,$cited);
}
}
close($fh);
## read the .bib database and extract the cited out
open my $fh2, '',
/lina/texmf/bibtex/bib/biophymd.bib;
my $bib_filename = try.bib;
my $bib_abbrev_filename = /home/lina/texmf/bibtex/bib/biophyabbrev.bib;
my $extracted_bib = basename($infile).bib;
my $cited;
my @citeditems;
my $item;
## read all the cited items from .tex file and save it to $cited
open my $fh
Hi,
I have problem putting the match into an array,
$ more sample.tex
aaa\cite{dehydron,dehydron1},ddd
bbb\cite{inhibitorAromaticDirect}aaa
open my $fh, '', sample.tex;
while($fh){
if(/cite\{(\S+)\}/){
$cited = sprintf %s\n,$1;
#$cited =~ tr/\,/\n/;
Hi Tim,
On Wed, Mar 14, 2012 at 6:03 PM, timothy adigun 2teezp...@gmail.com wrote:
Hi lina,
On Wed, Mar 14, 2012 at 10:50 AM, lina lina.lastn...@gmail.com wrote:
Hi,
I have problem putting the match into an array,
$ more sample.tex
aaa\cite{dehydron,dehydron1},ddd
bbb\cite
## read the .bib database and extract the cited out
open my $fh2, '', $bib_filename;
foreach $item (@citeditems){
match($item);
}
sub match{
my $reg = @_;
LINE: while(my $line = $fh2){
if ($line =~ m/$reg\,/ .. $line =~ /^\}$/){
=~ /^\}$/){
print $line;
#last;
}
}
close($fh2);
}
but when I used the
sub match{
my $reg = @_;
if ($line =~ m/$reg\,/ .. $line =~ /^\}$/){
not works. do you know why?
Thanks,
On Wed, Mar 14, 2012 at 6:10 PM, lina lina.lastn
strict;
use warnings;
use Carp qw(croak);
use autodie qw(open close);
use File::Basename;
use List::MoreUtils qw(uniq);
croak Usage: ./bibextract.pl tex_file.tex unless defined $ARGV[0];
my $infile = $ARGV[0];
my $tex_file = $infile;
#my $bib_filename = /home/lina/texmf/bibtex/bib/biophymd.bib;
my
Use the range operator to delimit the section you want to extract.
You can read about in 'perldoc perlop'
if ($line =~ /^A$/ .. $line =~ /^C$/) {
Hi,
I came back to this again, last time tried to match all under A, like
A
1 1
3 1
B
1 3
1 5
A
1 1
Here what if I wish it only meet once A and
Hi,
here is the on-going script.
#!/usr/bin/env perl
use strict;
use warnings;
use Carp qw(croak);
use autodie qw(open close);
use File::Basename;
croak Usage: ./bibextract.pl tex_file.tex unless defined $ARGV[0];
my $infile = $ARGV[0];
my $tex_file = $infile;
my $bib_filename = /home/lina
A
7.803481E-01 8.228973E-01 7.515242E-012 1833
-5.50 308.3889771284 5 0 7 1.7084151661
1.6790503987 2.75458
53558
7.866901E-01 8.410519E-01 9.981456E-012 14485
-5.50 269.620127126039 4 7-2.5561279716
-3.5975355928
On Sun, Mar 11, 2012 at 10:45 PM, lina lina.lastn...@gmail.com wrote:
A
7.803481E-01 8.228973E-01 7.515242E-01 2 1833
-5.50 308.3889771284 5 0 7 1.7084151661
1.6790503987 2.75458
53558
7.866901E-01 8.410519E-01 9.981456E-01 2 14485
On Sun, Mar 11, 2012 at 11:15 PM, Ron Bergin r...@i.frys.com wrote:
lina wrote:
On Sun, Mar 11, 2012 at 10:45 PM, lina lina.lastn...@gmail.com wrote:
A
7.803481E-01 8.228973E-01 7.515242E-01 2 1833
-5.50 308.3889771284 5 0 7 1.7084151661
1.6790503987
On Mon, Mar 12, 2012 at 12:11 AM, Zheng Du dea...@gmail.com wrote:
Hi Lina,
A simple solution I can provide is:
while (my $line = $fh){
if ($line =~ /^A$/){
# read 8 lines
# print each line
}
Thanks, it's a very large file more than 5 MB
On Thu, Mar 8, 2012 at 10:07 PM, Shawn H Corey shawnhco...@gmail.com wrote:
On 12-03-07 11:49 PM, lina wrote:
I only read till 15 pages, progressed so slow, and sometimes choked by
understanding the pack. really hard for me to understand it, so I
just skip. meanwhile I also did some search
On Thu, Mar 8, 2012 at 10:14 PM, lina lina.lastn...@gmail.com wrote:
On Thu, Mar 8, 2012 at 10:07 PM, Shawn H Corey shawnhco...@gmail.com wrote:
On 12-03-07 11:49 PM, lina wrote:
I only read till 15 pages, progressed so slow, and sometimes choked by
understanding the pack. really hard for me
Hi,
$ ./substr_accessing_examples.pl
Undefined subroutine main::subst called at
./substr_accessing_examples.pl line 15.
#!/usr/bin/env perl
use strict;
use warnings;
#
# get a 5-byte string, skip 3 bytes,
# then grab two 8-byte strings, then the rest;
#
# (my $leading, my $s1, my $s2, my
snip
Thanks for all, I was so inexperience, thought might some module
missing and a bit carelessly.
Best regards,
--
To unsubscribe, e-mail: beginners-unsubscr...@perl.org
For additional commands, e-mail: beginners-h...@perl.org
http://learn.perl.org/
On Thu, Mar 8, 2012 at 12:40 PM, David Christensen
dpchr...@holgerdanske.com wrote:
On 03/07/2012 08:41 AM, lina wrote:
$ ./substr_accessing_examples.pl
Undefined subroutinemain::subst called at
./substr_accessing_examples.pl line 15.
On 03/07/2012 09:02 AM, Brock wrote:
I think you mean
$ perl -Mstrict -wle '{my $char = chr(Ox394) ; print $char;}'
Bareword Ox394 not allowed while strict subs in use at -e line 1.
Execution of -e aborted due to compilation errors.
I don't understand the above error message well,
Thanks ahead for any explainations,
Best Regards,
--
To
On Tue, Mar 6, 2012 at 11:42 PM, Paul Johnson p...@pjcj.net wrote:
On Tue, Mar 06, 2012 at 11:31:59PM +0800, lina wrote:
$ perl -Mstrict -wle '{my $char = chr(Ox394) ; print $char;}'
Bareword Ox394 not allowed while strict subs in use at -e line 1.
Execution of -e aborted due to compilation
Hi,
Which books are the best perl books you have ever read?
How did you start learning perl?
Is the books wrote before 2006 a bit older, are there much changes in
the last 10 years for perl?
I am keen to learning it, but so clumsy,
Thanks with best regards,
--
To unsubscribe, e-mail:
Thanks for all of you.
I will take time to do those things.
Best wishes,
lina
--
To unsubscribe, e-mail: beginners-unsubscr...@perl.org
For additional commands, e-mail: beginners-h...@perl.org
http://learn.perl.org/
= $ARGV[0];
my $tex_filename = $INPUTFILE;
my $bib_filename = /home/lina/texmf/bibtex/bib/biophymd.bib;
my $bib_abbrev_filename = /home/lina/texmf/bibtex/bib/biophyabbrev.bib;
# divide the input file name into its path and name,
# ignore its extension
my ($name, $path) = fileparse($tex_filename
On Tue, Mar 6, 2012 at 12:23 PM, Rob Dixon rob.di...@gmx.com wrote:
Lina the code you have shown doesn't produce that warning. If you still
need help then please post your current code.
Thank you. it's weird.
#!/usr/bin/env perl
use strict;
use warnings;
use File::Spec;
use File::Basename;
my
On Sun, Mar 4, 2012 at 2:22 AM, Shlomi Fish shlo...@shlomifish.org wrote:
Hi lina,
On Sun, 4 Mar 2012 00:37:58 +0800
lina lina.lastn...@gmail.com wrote:
Hi,
I want to output the result into the file shared the same basename but
different extensions,
Below is what I have come up so far
On Sun, Mar 4, 2012 at 2:34 AM, Shawn H Corey shawnhco...@gmail.com wrote:
On 12-03-03 11:37 AM, lina wrote:
my $tex_filename = $ARGV[0] ;
# for catfile()
use File::Spec;
# divide the input file name into its path and name,
# ignore its extension
my ( $name, $path ) = fileparse
$ perl extract.pl try.tex
Bareword filename not allowed while strict subs in use at extract.pl line 8.
Execution of extract.pl aborted due to compilation errors.
#!/usr/bin/env perl
use strict;
use warnings;
my $filename = $ARGV[0] ;
open FILE, , filename or die $!;
my @line = FILE ;
while
snipped
Thanks for both of you.
Your guys are great.
Best regards,
--
To unsubscribe, e-mail: beginners-unsubscr...@perl.org
For additional commands, e-mail: beginners-h...@perl.org
http://learn.perl.org/
Hi,
I want to output the result into the file shared the same basename but
different extensions,
Below is what I have come up so far:
perl try.tex
#!/usr/bin/env perl
use strict;
use warnings;
use File::Basename;
my $bib_filename = /home/lina/texmf/bibtex/bib/biophymd.bib;
my
Hi,
I am not experienced in below choice
after issue the perl -MCPAN -e shell
What approach do you want? (Choose 'local::lib', 'sudo' or 'manual')
/dev/sda10 6.5G 515M
5.7G 9% /usr/local
/dev/sda9
Hi,
are there some intelligent modules or website, I send it a string,
it can intelligently analysis the structures and gave me several
options consisted of those regular expressions,
Just curious,
Thanks with best regards,
--
To unsubscribe, e-mail: beginners-unsubscr...@perl.org
For
On Sat, Feb 18, 2012 at 3:26 PM, Rob Dixon rob.di...@gmx.com wrote:
On 18/02/2012 04:51, lina wrote:
How to make a match for the following?
V c #767676 /* 0.808 */,
W c #6F6F6F /* 0.846 */,
X c #696969 /* 0.885 */,
Y c #626262 /* 0.923 */,
Z c #5C5C5C /* 0.962 */,
a c #55
Hi,
Sorry to open a new thread,
Use of uninitialized value within %dict in concatenation (.) or string
at ./translate.pl line 21, $fh line 128.
Here is the whole code (based on the guide form all of you):
#!/usr/bin/perl
use warnings;
use strict;
my $file = dm_proAB.xpm;
open my $fh, ,
On 18 Feb, 2012, at 23:11, Shawn H Corey shawnhco...@gmail.com wrote:
On 12-02-18 09:42 AM, lina wrote:
Hi,
Sorry to open a new thread,
Use of uninitialized value within %dict in concatenation (.) or string
at ./translate.pl line 21,$fh line 128.
Here is the whole code (based
On 18 Feb, 2012, at 22:55, Shawn H Corey shawnhco...@gmail.com wrote:
On 12-02-18 08:40 AM, lina wrote:
Hi,
are there some intelligent modules or website, I send it a string,
it can intelligently analysis the structures and gave me several
options consisted of those regular expressions
On Sun, Feb 19, 2012 at 3:34 AM, Shawn H Corey shawnhco...@gmail.com wrote:
On 12-02-18 11:40 AM, lina wrote:
elsif ( $xpm_file =~ /^(\S+)[,]$/) {
Are there some possibilities that something can be done for the part [,]?
Make it recognize both end with or ,
elsif( $xmp_file
Hi,
I have a file,
cat try.xpm
a 1
b 2
c 3
d 4
abbbcdddb
I wish to use perl to translate the last line into the numerical value.
#!/usr/bin/perl
use warnings;
use strict;
open FILE, try.xpm or die $!;
my @line = FILE;
while (FILE) {
print $_;
}
strangely it print me nothing
On Fri, Feb 17, 2012 at 11:49 PM, Rob Coops rco...@gmail.com wrote:
On Fri, Feb 17, 2012 at 4:32 PM, lina lina.lastn...@gmail.com wrote:
Hi,
I have a file,
cat try.xpm
a 1
b 2
c 3
d 4
abbbcdddb
I wish to use perl to translate the last line into the numerical value.
#!/usr
On Sat, Feb 18, 2012 at 12:25 AM, Shawn H Corey shawnhco...@gmail.com wrote:
On 12-02-17 10:32 AM, lina wrote:
#!/usr/bin/perl
use warnings;
use strict;
open FILE, try.xpm or die $!;
my @line =FILE;
while (FILE) {
print $_;
}
strangely it print me nothing out,
Try
On Sat, Feb 18, 2012 at 12:25 AM, Shawn H Corey shawnhco...@gmail.com wrote:
On 12-02-17 10:32 AM, lina wrote:
#!/usr/bin/perl
use warnings;
use strict;
open FILE, try.xpm or die $!;
my @line =FILE;
while (FILE) {
print $_;
}
strangely it print me nothing out,
Try
On Sat, Feb 18, 2012 at 12:33 AM, Jim Gibson jimsgib...@gmail.com wrote:
At 12:10 AM +0800 2/18/12, lina wrote:
What's the $_ and $@
They are built-in global variables. $_ is the default variable for many Perl
operations. $@ is the syntax error message from the last eval (why are you
On Sat, Feb 18, 2012 at 12:53 AM, Shawn H Corey shawnhco...@gmail.com wrote:
On 12-02-17 11:43 AM, lina wrote:
#!/usr/bin/perl
use warnings;
use strict;
my $file = try.xpm;
open my $fh, $file or die could not open $file: $!\n;
Use the three argument open, please:
open my $fh
On Sat, Feb 18, 2012 at 12:53 AM, Shawn H Corey shawnhco...@gmail.com wrote:
On 12-02-17 11:43 AM, lina wrote:
#!/usr/bin/perl
use warnings;
use strict;
my $file = try.xpm;
open my $fh, $file or die could not open $file: $!\n;
Use the three argument open, please:
open my $fh
How to make a match for the following?
V c #767676 /* 0.808 */,
W c #6F6F6F /* 0.846 */,
X c #696969 /* 0.885 */,
Y c #626262 /* 0.923 */,
Z c #5C5C5C /* 0.962 */,
a c #55 /* 1 */,
b c #4E4E4E /* 1.04 */,
c c #484848 /* 1.08 */,
I tried the
$mystring3=abacadeusagaka35;
if($mystring =~ m/(a.+)/g){
print $1,\n;
}
Hi, I wonder how to print the abacad out?
Thanks for any suggestions,
Best regards,
--
To unsubscribe, e-mail: beginners-unsubscr...@perl.org
For additional commands, e-mail: beginners-h...@perl.org
1 - 100 of 116 matches
Mail list logo