Search Results

If you would run your perl scripts with warnings turned on as is always recommended you might have figured it out:

readline() on unopened filehandle at script line 3.

the construct <"$value">...

opendir DIR, "F:/"; # Searching under F drive
my @files = readdir(DIR); # Reading eveythg under F drive
closedir DIR; # closeing the directory handler
foreach my $file (@files) {
print "This is...

this is probably the most efficient way:

$str = " some text ";
$str =~ s/^\s+//;
$str =~ s/\s+$//;


You can do it with one regexp but it might be a little slower, only testing would...

You only need to check the line once:


Connected to 192.168.1.13

#!/usr/local/bin/perl
foreach $line(@lines){
if ($line =~ /connected to (.*?)/i) {
$ip=$1;
}
}


but if...

Usted debe utilizar inglés

my $str = 'Mary had a little Lamb';
my $search = 'LAMB';
if (index lc($str),lc($search) > -1) {
print "Found [$search] in [$str]\n";
}

maybe:


@strings = ("[[:<:]](", "[[:<:]]((", "[[:<:]](((", "[[:>:]](((((");

for (@strings) {
s/^([^(]+)([(]+)$/$2$1/;
print "$_\n";
}

It is homework, he mentions that on one of the other perl forums where he is posting the same questions.

Edit: I see he now mentions it is homework

If you just want the greatest number use an array slice to return only that number:

my @nums = (2.1,1,3,10.1,10.2, 5);
my $grNum = (sort {$a <=> $b} @nums)[-1];
print "Greatest Number is:...

##your code above
$group = <>;
chomp $group;#<-- chomp user input to remove the newline
##your code below

I suspect the problem is not what you think it is because your code works fine with your data, for me anyway:


while(<DATA>){
if (/userName\s+:\[(..*)\]/){
$User_Name = $1;
...

Extract two times from what? Please try and be more specific.

Most likely the arguments you pass the script aren't set/passed correctly because July (correctly set to 6 for Time::Local) does have 31 days. The code you posted works for me as-is.

looks like a duplicate of your other thread:

https://www.unix.com/shell-programming-scripting/116179-compare-2-arrays-perl.html

The "area" you describe is not familiar to me. How do you know that 0380 is the area part of 0380112? Is it because it starts and ends with zero? If so, and the areas are of varying length, you can...

What will happen in your code is that you will get the first line of "hual" and then read through all the lines of "land" then when you get the second line of "hual" there will be no more lines from...

Make sure to transfer the file in ASCII (or text) mode and your ftp application should convert Windows style newlines into Unix newlines automatically. Otherwise the Windows style \r\n newlines might...

Do you have a question?

MIME::Lite is a good module for sending emails that need to more than just sent as-is.

No, that does not do any rounding off. If all you wanted to do was truncate the number of digits then substr() is better for that unless you had to search for the number in a string.

is the message coming from die or when you print the hash or something else? That sure is not any perl error or warning I have ever seen.

I'm not sure what happened in the code I posted, but this line:

$unique{$_};


should be:

$unique{$_}++;

So it displays the count of each unique line

the line numbers in file one do not seem match the output and the line numbers in the file have to be offset by negative one to match in the array, which will start at zero instead of one like the...

Assuming by unique you mean 100% unique, and things like case or white space are included in the uniqueness:


use strict;
use warnings;
my %unique;
open my $FH, '/path/to/your/file' or die...

Splitting on spaces(s) appears to be the correct thing to do based on what little information you have provided.