Port perl script to Windows

Question

I have a great perl script I use to untar/unzip a tarball of a file, then correlate a dozen+ files for smart troubleshooting of a NAS system. Now people want to see a version for windows =/

I am Linux savvy, rookie to Perl and not at all comfortable with scripting for windows.

The snags I see are: (1) install location of perl (2) I rely on output from grep and find (3) potential snags between versions - XP,Vista?,7,2k3,2k8.

No luck so far w/Cygwin, or Windows version of find. I have ActivePerl installed on Windows 7.

Thoughts?

Answer 1

Grep (or grep-like) functions can be reached using

• http://perldoc.perl.org/functions/m.html
• http://perldoc.perl.org/search.html?q=regular+expression

You can use find, per RedGrittyBrick's note above (err, below? He keeps moving).

I've recently ported a Windows Vista Perl script to XP, and it is no big deal. The only hitches I've run into are use of the 'exec' or the 'system' calls within Perl in order to trigger operation of MS Office programs. Unless you are doing something like this, you will probably see no difficulty in moving back and forth among the Windows OSes.

Incidentally, I wasn't initially aware, in my use of ActiveState Perl, of the PPM function that lets you grab open-sourced libraries for specialty functions. Be sure and try that out to avoid re-invention of the wheel.

Answer 2

1. Install location of perl - shouldn't cause any problems.
2. Replace use of grep/find with Perl modules. E.g. File::Find.
3. I've not had any Windows-version issues. What did you have in mind?

Answer 3

Cygwin is usually the easiest solution to this type of issue. What problems have you had with it?

Answer 4

Cygwin has find and grep.

If find gives you some weird error message, it means you're running a different find command.

Try editing your PATH to put Cygwin's /bin and /usr/bin at the start, or run find using an absolute pathname, e.g. /usr/bin/find instead of find.

---

But yes, others are right, you could certainly replace find with File::Find and the grep command with Perl's grep function or regular expression matching operators
(e.g. $line =~ /pattern/).

ActivePerl is probably fine, but Strawberry Perl seems to be becoming the most popular option on Windows, so that's another option if for some reason ActivePerl doesn't work out.

Answer 5

Have you tried msys? I'm a git user so I nearly consider everything from msysgit to be a part of my OS now.

msys - http://www.mingw.org/wiki/msys

msysgit - http://code.google.com/p/msysgit/