Forum: Perl  Aug 1st, 2009 |
| Replies: 2 Views: 449 It aborts because you can't have nested quantifiers.
Your expectation of what the "g" modifier does is also wrong. Here is an excerpt from perlretut:
Global matching
The final two modifiers... |
| Forum: Perl Jul 31st, 2009 |
| Replies: 4 Views: 597 You need parentheses for back references to capture patterns they find.
if (/($pattern)/) { |
| Forum: Perl Jul 31st, 2009 |
| Replies: 1 Views: 532 hashes are not randomly ordered lists, they are lists that don't have any guaranteed ordered, but they should always be the same order on the same computer. So that bug report appears to be erroneous... |
| Forum: Perl Jul 31st, 2009 |
| Replies: 4 Views: 597 What are you entering into $pattern? |
| Forum: Perl May 30th, 2009 |
| Replies: 2 Views: 469 The perl documentation would have explained all of your errors. But I'll short-cut it for you.
First, $a and $b are variables used by perl for sorting and should not be used by you except for... |
| Forum: Perl May 23rd, 2009 |
| Replies: 5 Views: 499 Yes there is something you can do. There are a few things actually. But I think this is the best suggestion. Instead of returning a list of scalars with some that you don't use, return a list slice... |
| Forum: Perl May 20th, 2009 |
| Replies: 5 Views: 499 This line also needs to be changed:
$nucleotide_gi,$start_gene,$end_gene,$strand) = split('\t');
\t in single-quotes is a literal string, not a tab, so use forward slashes for the split()... |
| Forum: Perl May 20th, 2009 |
| Replies: 5 Views: 499 I didn't look at all your code but this line:
$content = get('http://www.ncbi.nlm.nih.gov/sviewer/viewer.fcgi?db=protein&sendto=t&dopt=fasta&list_uids=$protacc_arr[$i]');
Needs... |
| Forum: Perl May 14th, 2009 |
| Replies: 1 Views: 431 The code you posted will work to append the string to the end of whatever value $values[10] has. If its not working the problem is elsewhere. |
| Forum: Perl May 13th, 2009 |
| Replies: 5 Views: 893 try:
my ($d) = $s =~ m/<head>(.*?)<\/head>/is; |
| Forum: Perl Apr 19th, 2009 |
| Replies: 2 Views: 805 $decVal = <STDIN>;
chomp($decVal);#<--- you need this |
| Forum: Perl Apr 18th, 2009 |
| Replies: 2 Views: 836 use split instead:
my $var = 'abcdefghijklmnop';
my @chars = split(//,$var);
foreach my $char (@chars) {
#do something with $char
} |
| Forum: Perl Apr 9th, 2009 |
| Replies: 2 Views: 692 CGI::Pretty comes with perl. I leave it up to you to read the documentation. |
| Forum: Perl Apr 6th, 2009 |
| Replies: 3 Views: 1,163 Its covered in the CGI modules documentation, you were pretty close actually:
use CGI;
my $cgi = CGI->new;
print $cgi->start_html(-title => 'Meta Test',
... |
| Forum: Perl Apr 4th, 2009 |
| Replies: 4 Views: 634 I don't know, you can try www.perlmonks.com or ask on the dbi modules mailing list (see the DBI module for details) |
| Forum: Perl Apr 2nd, 2009 |
| Replies: 3 Views: 578 #!/usr/local/bin/perl
use English;
$string = "This is my string this is it. I want to tie my string";
$count = 0;
while ($string =~ m/string/gi)
{
$count=$count+1; |
| Forum: Perl Apr 2nd, 2009 |
| Replies: 3 Views: 578 If you literally want to find "string" you can't put it in square brackets. That makes a character class and order of the characters is ignored. |
| Forum: Perl Mar 23rd, 2009 |
| Replies: 3 Views: 568 use the "g" option:
$string = 'abc 123 def 456 ghi 789';
@numbers = $string =~ /\d+/g;
print "$_\n" for @numbers;
Note I changed the quantifier * to + because * will match zero or more... |
| Forum: Perl Mar 12th, 2009 |
| Replies: 3 Views: 782 Hes just not applying it correctly to this particular problem. |
| Forum: Perl Mar 12th, 2009 |
| Replies: 3 Views: 782 The problem is you are generating a random number based on the length of the array, not the values of the elements of the array. Here is what you want to do:
my @numbers = (48..57, 65..90,... |
| Forum: Perl Feb 10th, 2009 |
| Replies: 2 Views: 705 if($form_element{'email'} =~ m/^[a-zA-Z0-9_\-]+@[a-zA-Z0-9_\-]+([.][a-zA-Z0-9_\-]+)+[a-zA-Z]{2,4}$/i){
$values = 0;
$mail = "Valid!";
} else {
$mail = "InValid!";
} |
| Forum: Perl Jan 28th, 2009 |
| Replies: 7 Views: 963 just a guess, in this block of code:
#open (MLB2, ">> /data/local/GIS/WRKGIS.txt");
open (MLB2, ">> /awips/dev/localapps/kmltools/WRKGIS1.csv");
for ($i=1; $i<=$num1; ++$i){
if ($finline[$i]... |
| Forum: Perl Jan 27th, 2009 |
| Replies: 12 Views: 1,956 see the other forum, I prefer to not duplicate my replies. |
| Forum: Perl Jan 27th, 2009 |
| Replies: 12 Views: 1,956 I see you posted the same question on another forum and provided more detail. My suggestion above will not do what you want. |
| Forum: Perl Jan 27th, 2009 |
| Replies: 12 Views: 1,956 csv files typically use quotes around fields that have text or non-digit data in them. If you don't want the quotes you can try this:
print (join ',' , "@dn", # row
map {get $entry, $_->[1],... |
| Forum: Perl Jan 27th, 2009 |
| Replies: 1 Views: 514 PPM is not for running your perl programs. Its for installing modules and other tasks related to modules. On Windows the way I prefer to run a perl program is open a DOS (or Command) Window and type:... |
| Forum: Perl Jan 27th, 2009 |
| Replies: 4 Views: 595 If you tried to run your code it will return a syntax error so I am suspicious you did not try it. In the other code the "while" loop has a condition:
while (1) {
why did you remove the... |
| Forum: Perl Jan 26th, 2009 |
| Replies: 4 Views: 595 A students best cheat tool is a search engine or the search feature of a website or forum. You would have found a recent thread discussing the exact same assignment had you done just a little... |
| Forum: Perl Jan 23rd, 2009 |
| Replies: 4 Views: 854 The Benchmark documentation says:
CAVEATS
Comparing eval'd strings with code references will give you inaccurate results: a code reference will show a slightly slower execution time than the... |
| Forum: Perl Jan 23rd, 2009 |
| Replies: 4 Views: 854 You can try the Benchmark or Time::HiRes modules, they come with perl. Read the documentation and try a few things, if you get stuck post back. |
| Forum: Perl Jan 22nd, 2009 |
| Replies: 12 Views: 1,956 Here is a simple test of the regexp I posted:
$row = [qq{this is\n a test},qq{this is\ranother test}];
s/[\r\n]// for @{$row};
print @{$row};
That appears to work fine. Why it causes your... |
| Forum: Perl Jan 21st, 2009 |
| Replies: 14 Views: 1,714 this line is doing nothing (its useless):
($ch);
I am not sure what you think this does:
open(OUT, "<$file") || die "Cant open $file: $!";
for($line=0; <OUT>; $line++)
{
} |
| Forum: Perl Jan 21st, 2009 |
| Replies: 14 Views: 1,714 Post you code again, the code that returns the warning you mention. "Useless use of variable" is generally something like:
$foo;
The above line does nothing, its useless. Thats a warning... |
| Forum: Perl Jan 21st, 2009 |
| Replies: 12 Views: 1,956 Well, I don't know what the character is that is causing the problem but it appears you will need to remove it manually, something like:
my $row = $csv->getline ($fh);
s/[\r\n]// for @{$row}; |
| Forum: Perl Jan 20th, 2009 |
| Replies: 12 Views: 1,956 RTM mate:
http://search.cpan.org/~hmbrand/Text-CSV_XS-0.58/CSV_XS.pm#Embedded_newlines |
| Forum: Perl Jan 20th, 2009 |
| Replies: 8 Views: 955 Your code is quite close to getting it right, here is a way to do this type of looping guessing game:
use strict;
use warnings;
my $thinkingof = int(rand 10)+1;
while (1) {
print "Pick... |
| Forum: Perl Jan 19th, 2009 |
| Replies: 14 Views: 1,714 inked,
add this line to your code:
use warnings;
and rerun it and list any warnings you get. |
| Forum: Perl Jan 17th, 2009 |
| Replies: 14 Views: 1,714 A google search found this page:
http://en.literateprograms.org/Category:Programming_language:Perl
It shows a "word count" program listed but I have not read it to see how well written it is.
... |
| Forum: Perl Jan 17th, 2009 |
| Replies: 14 Views: 1,714 The concept of sentences does not translate well to poetry or song liricks as they do not follow the same grammatical rules as formal writing. |
| Forum: Perl Jan 17th, 2009 |
| Replies: 14 Views: 1,714 OK, when I run your code the count is 2. The problem appears to be that you are not chomping the input and you have "!" instead of "," in your conditional statement.
When "!" is changed to "," the... |
