Tek-Tips is the largest IT community on the Internet today!
Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!
-
Congratulations Chriss Miller on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!
-
Removing entries from a file
I agree that the rules are a little confusing. Assuming AAAAAA should be deleted, then how about this. #!/usr/bin/perl use strict; my @foo = ('AAAAAA', 'ATATAT', 'AATAAT'); foreach (@foo) { print "$_\n" if substr($_,0,3) eq substr($_,3,6); } -- http://MyUniversityTutor.com -
How to delete a line in excel file ???
If you have an array @a in perl(< 6), then you access the ith element with $a[$i] instead of @a[$i]. That's all the warning is saying. I think that changes with perl6... I've never used Spreadsheet::ParseExcel::Simple, but I think you can check the value of the LAVG_1min column with $data[2]... -
How to add and delete an occurrence of characters in a file?
The only major difference I can see is the global option. -- http://MyUniversityTutor.com -
How do I find all regex matches in a string?
Have you looked at the module? You're using SQL, and Class::DBI is a module that deals with SQL. I was just saying that if you're using Class::DBI, then you don't have to issue a statement and look for errors. You can just override the _croak function and you'll get all the errors. If you're not... -
How do I find all regex matches in a string?
If you're using Class::DBI then you just override the _croak function. http://search.cpan.org/~tmtm/Class-DBI-v3.0.17/lib/Class/DBI.pm#EXCEPTIONS -- http://MyUniversityTutor.com -
How do I find & delete old files?
What OS are you on? Do you have to use perl? If you're on Linux, you can just do this from the shell: find * -mtime +89 If you're on Windows or you have to use perl, then you can use File::Find and stat. -- http://MyUniversityTutor.com -
How to get the PID when a process is started by "system"?
I've never done it before, but check out this post. There are a lot of suggestions -- I'm sure one of them will work for you. http://www.perlmonks.org/?node_id=680907 -- http://MyUniversityTutor.com -
Grep testing expression within subroutine
...= grep square3($_),@input; print "input = @input\n"; print "output3 = @output3\n\n"; sub square{ my $value = shift; my $result = $value * $value; return $result; } sub square2{ $_ = $_ * $_; return $_; } sub square3{ $_ = $_ * $_; return 0; # or return false... -
Grep testing expression within subroutine
...the weird results. #!/usr/bin/perl use strict; my @input = (1,2,4,8,16,32,64,128); my @output = grep(/\d{2}/, @input); my @output2 = map($_ * $_,@input); print "grep = @output\n"; print "map = @output2\n"; #output #grep = 16 32 64 128 #map = 1 4 16 64 256 1024 4096 16384 --... -
Grouping based on hostname
Does that mean you don't want to do this in perl anymore? If you still need help, then show us what you have in shell scripting and we can help you port it to perl, or show us what you have in perl so far and we can help you build on that. -- http://MyUniversityTutor.com -
writing Header content only one time while merging multiple excel file
I'm glad it's working! Thanks for the stars. -- http://MyUniversityTutor.com -
writing Header content only one time while merging multiple excel file
Try this. # Build an array of the stats type to be collated #my @stat_type=split(/:/, $PARAMS{COLLATE_STAT_TYPES}); @stat_type=@uniq; # for each of the stats type, read the xls of each hour and write into a consolidated xls. foreach my $stat_type_token (@stat_type){ my $con_wb =... -
writing Header content only one time while merging multiple excel file
It looks like you're missing a '{' at the end of this line foreach my $row_index ($source_sheet->{MinRow} .. $source_sheet->{MaxRow}) It also looks like you're setting $first_file to 'no' outside of the loop. Try fixing your indentation so it's easier for you (and us) to read. --... -
Use PERL to run subroutine in MS Access database
I don't use windows, so I've never used Win32::OLE and I don't know what a subroutine in an mdb file would look like. If you can post the file, then I can start playing around and see if I can figure something out. -- http://MyUniversityTutor.com -
writing Header content only one time while merging multiple excel file
Oops. Looks like next if $row_index == $source_sheet->{MinRow} && $first_file ne "no"; should be next if $row_index == $source_sheet->{MinRow} && $first_file eq "no"; You're also changing $first_file to 'no' at the end of the loop, right? What's this line for? next if $row_index ==... -
Regex Question
...3) Grab the stuff in the middle # gets -head=head data I think your confusion is coming from the fact that you're using '.+?' instead of '.*?'. '.+?' looks for 1 or more, while '.*?' looks for 0 or more. If you change it to '.*?' then you'll get what you want (but you'll also get some... -
simple but annoying problem
You just need to get rid of some parentheses. while($read=~/(NM|\s\*\s)/g){ The way you have it, 'NM' will be saved in $1 and '*' will be saved in $2. -- http://MyUniversityTutor.com -
Use PERL to run subroutine in MS Access database
When you say that neither of them work, what exactly do you mean? They give you no output? They die with errors? Can you post that access file? I don't have access. -- http://MyUniversityTutor.com -
writing Header content only one time while merging multiple excel file
You have this line next if $row_index eq (($source_sheet->{MinRow}) && ($first_file ne "no")); That looks odd. I think you want next if $row_index == $source_sheet->{MinRow} && $first_file ne "no"; I can't see where you're changing $first_file from "yes" to "no". You could make it the... -
Perl script can't locate RRDs.pm
Is there a particular reason you've chosen that over a CPAN module? If not, I'd look into CPAN. CPAN modules are easy to install too. If you have to use this particular tool, then try to use yum rather than doing everything manually. You could, for instance: sudo yum install rrdtool sudo yum...
