Beefy Boxes and Bandwidth Generously Provided by pair Networks
P is for Practical
 
PerlMonks  

Re^2: My script is working fine on linux but it's not working on the Windows

by galacticos (Initiate)
on Nov 17, 2011 at 10:01 UTC ( #938571=note: print w/ replies, xml ) Need Help??


in reply to Re: My script is working fine on linux but it's not working on the Windows
in thread My script is working fine on linux but it's not working on the Windows

Actuall in windows this programme is working fine But at the same time When I am trying this programme in windows it's not working and one more thing when i exectue my perl script in windows it's got stuck in cmd but after that when i prees enetr two or three time it will throw thius error " the system cannot" only these three word please check this if it's possible ... Thanks and regards Galacticos

#!/usr/bin/perl use strict; use warnings; $y_date= `date --date="yesterday"`; $y_date =~ s/IST//g; $y_date =~ m/(\d+)$/; $year= $1; print $year; $y_date =~ m/^(\w+\s\w+\s\w+)/; #print $y_date; $day=$1; print $day; open(FH,"C:\\arerror.log") or die "Unable to open logfile:$!\n"; open(OUT,">C:\\output.log") or die "Unable to open output file:$!\n"; @fileco=<FH>; @grepLogs = grep(/$day(.*)$year/,@fileco ); print OUT @grepLogs;


Comment on Re^2: My script is working fine on linux but it's not working on the Windows
Download Code
Re^3: My script is working fine on linux but it's not working on the Windows
by Corion (Pope) on Nov 17, 2011 at 10:03 UTC

    Instead of relying on an external date program, consider looking at localtime.

Re^3: My script is working fine on linux but it's not working on the Windows
by marto (Chancellor) on Nov 17, 2011 at 10:16 UTC

    "Actuall in windows this programme is working fine But at the same time When I am trying this programme in windows it's not working and one more thing when i exectue my perl script in windows it's got stuck in cmd but after that when i prees enetr two or three time it will throw thius error " the system cannot" only these three word please check this if it's possible ..."

    So it's working fine, apart from the fact that it doesn't work?

    $y_date= `date --date="yesterday"`;

    had you actually run this from the command prompt you'd notice that you're being prompted for user input, hence pressing enter multiple times provides the (invalid) input. The error you get isn't from your perl code, its because you don't understand what date does. As Corion suggested, don't reply on an external program (albeit the wrong program, which you don't seem to understand how to use) to get yesterdays date.

      Global symbol "$year" requires explicit package name at logscript.pl line 9. Global symbol "$day" requires explicit package name at logscript.pl line 14. Global symbol "@fileco" requires explicit package name at logscript.pl line 19. Global symbol "@grepLogs" requires explicit package name at logscript.pl line 20. Global symbol "$day" requires explicit package name at logscript.pl line 20. Global symbol "$year" requires explicit package name at logscript.pl line 20. Global symbol "@fileco" requires explicit package name at logscript.pl line 20. Global symbol "@grepLogs" requires explicit package name at logscript.pl line 22. logscript.pl had compilation errors.

Re^3: My script is working fine on linux but it's not working on the Windows
by marto (Chancellor) on Nov 17, 2011 at 10:28 UTC

    I noticed you've added use strict; use warnings now your code won't even get to the line which causes the problem. Did you even try running this?

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://938571]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others making s'mores by the fire in the courtyard of the Monastery: (9)
As of 2014-08-28 11:24 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    The best computer themed movie is:











    Results (259 votes), past polls