05-04-2009
I managed to solve it myself by changing the folder named after the servers ip into 'myip', I guess the script had troubles with the : or the . .
Thx for your response,
Cooki3s!
10 More Discussions You Might Find Interesting
1. Shell Programming and Scripting
Hi all
I keep getting a segmentation fault error while running the script below.
#!/usr/bin/perl -w
use CGI ':standard';
use GD::Graph::pie;
use strict;
use warnings;
sub trim($)
{
my $string = shift;
$string =~ s/^\s+//;
$string =~ s/\s+$//;
... (4 Replies)
Discussion started by: pietie
4 Replies
2. Shell Programming and Scripting
Hi,
This is my piece of code.
my $logFile = $ARGV;
die "usage: $0 <logFile>" unless $logFile;
die "Logfile $logFile doesn't exist" unless -f "$logFile";
open(my $log, "<", $logFile) or die "Can't open $logFile for reading.";
print "Processing file $logFile...\n";
#my $authenticates... (2 Replies)
Discussion started by: namishtiwari
2 Replies
3. Shell Programming and Scripting
I solicited this site earlier this week and got a good answer for a perl
Script so I made this script from what understood from the answers
But now I have a bug and I'm stump. It doesn't parse correctly the
Output it stays on the first line My $f2 and reprints in a endless loop
I'm sure there... (3 Replies)
Discussion started by: Ex-Capsa
3 Replies
4. Shell Programming and Scripting
#!/usr/bin/perl
$FL="ch.txt";
$CFL="mytext.txt";
print "This script will rename textfiles.";
mv $FL $CFL;
print "Done.";
perl file.pl
Error:
Can't locate object method "mv" via package "ch.txt" (perhaps you forgot to load "ch.txt"?) at file.pl line 7. (5 Replies)
Discussion started by: cola
5 Replies
5. Shell Programming and Scripting
open(IN,"input_file") or die "Can't open Input file.\n";
while (<IN>) {
chomp;
$line = $_;
if($line != '') {
print "\nprocessing $line\n";
$size = 0;
$hrid = $line;
@project_id_array = null;
$size = @project_id_array;... (3 Replies)
Discussion started by: vishwakar
3 Replies
6. Shell Programming and Scripting
I am getting a strange error with perl's inbuilt script flush.pl. I am callling this script in my other script but it kept throwing error:
flush.pl did not return a true value at ./abc.pl line 1
abc.pl has:
require 'flush.pl';
Not sure why this error is coming. Can someone pls throw... (4 Replies)
Discussion started by: abhisharma23
4 Replies
7. Shell Programming and Scripting
Hello All
I am facing an issue
The unix script is running fine in unix environment which uses ssh connection but when I try to run the same in informatica environment (same server where I was running the unix script manually successfully) its showing the below error
command-line line 0:... (11 Replies)
Discussion started by: Pratik4891
11 Replies
8. Programming
hi
Here is my code written to identify the particular position which is after a string (chr*). my input file looks some thing like this aaanbb:anhn:iuopl:12345 chr1 12345 asnmkol * # kjiiii.....anmkij:lpolk:lopll:abnnj chr5 123222 polko * dddfgg ....
aaanbb:anhn:iuopl:aanjuj chr2 44345 asnmkol... (1 Reply)
Discussion started by: anurupa777
1 Replies
9. Homework & Coursework Questions
1. The problem statement, all variables and given/known data:
filename = awkdata
Part 1: Write an awk program that removes the first field and prints only those lines where the third field is greater than 15 million.
Part 2: Do the same command above, but with perl instead of awk.... (0 Replies)
Discussion started by: AZbase10
0 Replies
10. Shell Programming and Scripting
So I have a perl script that prompts the user to enter either q or Q to exit the program or c to continue said program. If the user inputs anything other than those three keys they will be prompted again and again for an appropriate input. My script works for the most part except for one small... (6 Replies)
Discussion started by: Eric1
6 Replies
LEARN ABOUT DEBIAN
linux::distribution
Linux::Distribution(3pm) User Contributed Perl Documentation Linux::Distribution(3pm)
NAME
Linux::Distribution - Perl extension to detect on which Linux distribution we are running.
SYNOPSIS
use Linux::Distribution qw(distribution_name distribution_version);
if(my $distro = distribution_name) {
my $version = distribution_version();
print "you are running $distro, version $version
";
} else {
print "distribution unknown
";
}
Or else do it OO:
use Linux::Distribution qw(distribution_name distribution_version);
my $linux = Linux::Distribution->new;
if(my $distro = $linux->distribution_name()) {
my $version = $linux->distribution_version();
print "you are running $distro, version $version
";
} else {
print "distribution unknown
";
}
DESCRIPTION
This is a simple module that tries to guess on what linux distribution we are running by looking for release's files in /etc. It now looks
for 'lsb-release' first as that should be the most correct and adds ubuntu support. Secondly, it will look for the distro specific files.
It currently recognizes slackware, debian, suse, fedora, redhat, turbolinux, yellowdog, knoppix, mandrake, conectiva, immunix, tinysofa,
va-linux, trustix, adamantix, yoper, arch-linux, libranet, gentoo, ubuntu, scientific, oracle enterprise linux and redflag.
It has function to get the version for debian, suse, fedora, redhat, gentoo, slackware, scientific, oracle enterprise linux, redflag and
ubuntu(lsb). People running unsupported distro's are greatly encouraged to submit patches :-)
EXPORT
None by default.
TODO
Add the capability of recognize the version of the distribution for all recognized distributions.
AUTHORS
Alexandr Ciornii <alexchorny@gmail.com>, <http://chorny.net> Alberto Re, <alberto@accidia.net> Judith Lebzelter, <judith@osdl.org>
COPYRIGHT AND LICENSE
This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself, either Perl version 5.8.5 or,
at your option, any later version of Perl 5 you may have available.
perl v5.14.2 2012-03-18 Linux::Distribution(3pm)