I'm stuck again on something else now though. ^_^;
I have to add the values of an array @save that has numbers in it.
Code:
#! usr/bin/perl
use strict;
my $rules ="/Users/caitlin/scripts/challenge2.txt";
open my $FH, '<', $rules or die $!;
my @numbers;
my @save;
while (my $line = <$FH>){
@numbers = split(m/[^0-9]+/, $line);
push (@save, @numbers);
}
print @save;
It's not done yet because I have to add all the intergers in the array. The challenge2.txt contains text and numbers that I had to split. The result has empty spaces in it.
I need to take each result from the loop and add the next result to it. And as stated before, I'm dense... My attempts at it haven't amounted to executable code.
Hi all,
I am trying to match a multi line string and return the matching string in one line. Here is the perl code that I wrote:
#!/usr/bin/perl
my $str='<title>My
title</title>';
if ($str =~ /(<title>)(+)(<\/title>)/ ){
print "$2\n";
}
It returns :
My
title
I want the... (3 Replies)
letz say that my file has 7 records with only one field. So my file has:
11111111
000000000000000
1111
aaaabbbccc
1111111222000000
aaaaaaaa
zz
All i need is:
1. when the field has a repetition of the same instance(a-z or 0-9), i would consideer it to be invalid.... (1 Reply)
I am trying to read a file and capture particular lines into different strings:
LENGTH: Some Content here
TEXT: Some Content Here
COMMENT: Some Content Here
I want to be able to get (LENGTH: .... ) into one array and so on... I'm trying to use PERL in slurp mode but for some reason... (8 Replies)
In Perl I can write a condition that evaluates a match expression like this:
if ($foo =~ /^bar/) {
do blah blah blah
}
How do I write this in shell? What I need to know is what operator do I use? The '=~' doesn't seem to fit. I've tried different operators, I browsed the man page for... (3 Replies)
Hi,
I am looking for a Perl regular expression to match the below pattern of a java script file.
var so = object.device.load('camera','value');
I want to grep out such lines present in the *.js files. The conditions are:
a) the line may start with blank space(s)
b) always the... (3 Replies)
Hello,
I am trying to use perl LWP module to read and get a specfic URL page. The issue is that the URL ends with the data and time and time is not consistent it changes all the time. if anyone could help me how to write a regular expressin that would work in the LWP::UserAgent get function to... (0 Replies)
Could you help me with this please. This regular expression seems to match for the wrong input
#!/usr/bin/perl
my $inputtext = "W1a$%XXX";
if($inputtext =~ m/+X+/)
{
print "matches\n";
}
The problem seems to be %. if inputtext is W1a$XXX, the regex doesnot match.... (5 Replies)
Hi all,
How am I read a file, find the match regular expression and overwrite to the same files.
open DESTINATION_FILE, "<tmptravl.dat" or die "tmptravl.dat";
open NEW_DESTINATION_FILE, ">new_tmptravl.dat" or die "new_tmptravl.dat";
while (<DESTINATION_FILE>)
{
# print... (1 Reply)
I had a string in perl script as below.
Tue Augáá7 03:54:12 2012
Now I need to replace the special character with space.
After removing the special chaacters
Tue Aug 7 03:54:12 2012
Could anyone please help me here for writing the regular expression?
Thanks in advance..
Regards,
GS (1 Reply)
Discussion started by: giridhar276
1 Replies
LEARN ABOUT DEBIAN
cpan::perl::releases
CPAN::Perl::Releases(3pm) User Contributed Perl Documentation CPAN::Perl::Releases(3pm)NAME
CPAN::Perl::Releases - Mapping Perl releases on CPAN to the location of the tarballs
VERSION
version 0.60
SYNOPSIS
use CPAN::Perl::Releases qw[perl_tarballs];
my $perl = '5.14.0';
my $hashref = perl_tarballs( $perl );
print "Location: ", $_, "
" for values %{ $hashref };
DESCRIPTION
CPAN::Perl::Releases is a module that contains the mappings of all "perl" releases that have been uploaded to CPAN to the "authors/id/"
path that the tarballs reside in.
This is static data, but newer versions of this module will be made available as new releases of "perl" are uploaded to CPAN.
FUNCTIONS
"perl_tarballs"
Takes one parameter, a "perl" version to search for. Returns an hashref on success or "undef" otherwise.
The returned hashref will have a key/value for each type of tarball. A key of "tar.gz" indicates the location of a gzipped tar file and
"tar.bz2" of a bzip2'd tar file. The values will be the relative path under "authors/id/" on CPAN where the indicated tarball will be
located.
perl_tarballs( '5.14.0' );
Returns a hashref like:
{
"tar.bz2" => "J/JE/JESSE/perl-5.14.0.tar.bz2",
"tar.gz" => "J/JE/JESSE/perl-5.14.0.tar.gz"
}
Not all "perl" releases had "tar.bz2", but only a "tar.gz".
SEE ALSO
<http://www.cpan.org/src/5.0/>
<http://search.cpan.org/faq.html#Is_there_a_API?>
AUTHOR
Chris Williams <chris@bingosnet.co.uk>
COPYRIGHT AND LICENSE
This software is copyright (c) 2012 by Chris Williams.
This is free software; you can redistribute it and/or modify it under the same terms as the Perl 5 programming language system itself.
perl v5.14.2 2012-06-20 CPAN::Perl::Releases(3pm)
07-28-2011
My attempts at it haven't amounted to executable code.