Re: logfile rotate w/ pass by reference

sub logroll {
      my $logs = new Logfile::Rotate 
      (File => $_, <---- your problem is here
[download]

You're not using the argument given to &logroll(), instead, you're using $_, which is set to the currently read line from one of your filehandles.

Also, proper indenting of your code will make it a lot clearer. perltidy might help.

"What should it profit a man, if he should win a flame war, yet lose his cool?"

Comment on Re: logfile rotate w/ pass by reference Download Code

Replies are listed 'Best First'.
Re^2: logfile rotate w/ pass by reference by drock (Beadle) on Mar 14, 2005 at 16:51 UTC
Thank ytou and I realize my problem where you stated. But I am unsure of the correct syntax??? I tried this: `logroll($filename) sub logroll { my $logs = new Logfile::Rotate (File => $_, <- - - - What needs to go here?` [download]	[reply] [d/l]
Re^3: logfile rotate w/ pass by reference by Joost (Canon) on Mar 14, 2005 at 16:55 UTC
Here's an example `sub logroll { my $name = shift; # grab first argument my $logs = new Logfile::Rotate (File => $file, # etc...` [download] `sub logroll { my $name = shift; # grab first argument my $logs = new Logfile::Rotate (File => $name, # etc...` [download] see also perlsub. updated: mistyped name of variable. "What should it profit a man, if he should win a flame war, yet lose his cool?"	[reply] [d/l] [select]
Re^4: logfile rotate w/ pass by reference by drock (Beadle) on Mar 14, 2005 at 17:47 UTC
ok so in your sample code how does the subroutine know what variable it is receiving based off of your filename? Im ny code I have two distinct filenames I want to pass to logfile::rotate so how do I do this? `if ( ( my $dif = $dif[1] - $dif[2] ) > 199 ) { &mailme; logroll($out); if ( ( my $diff = $diff[1] - $diff[2] ) > 199 ) { &mailme; logroll($out1); sub logroll { my $logs = new Logfile::Rotate (File => ???? # <---- what is here based? Count => 10, # off of 2 diff filenames Gzip => 'lib', Dir => '/usr/local/log/old', Flock => 'yes', Persist => 'yes' ); $logs->rotate(); }` [download]	[reply] [d/l]
Re^5: logfile rotate w/ pass by reference by Joost (Canon) on Mar 14, 2005 at 17:53 UTC


Your skill will accomplish what the force of many cannot
	PerlMonks