Tập lệnh port perl sang Windows

Tôi có một tập lệnh perl tuyệt vời mà tôi sử dụng để giải nén / giải nén tarball của một tệp, sau đó tương quan với hàng tá tệp để xử lý sự cố thông minh của hệ thống NAS. Bây giờ mọi người muốn xem phiên bản cho windows = /

Tôi là người hiểu biết về Linux, tân binh của Perl và hoàn toàn không thoải mái với việc viết kịch bản cho windows.

Các snags tôi thấy là: (1) vị trí cài đặt của perl (2) Tôi dựa vào đầu ra từ grepvà find(3) snags tiềm năng giữa các phiên bản - XP, Vista ?, 7,2k3,2k8.

Không có may mắn cho đến nay w / Cygwin , hoặc phiên bản Windows của find. Tôi đã cài đặt ActivePerl trên Windows 7.

Suy nghĩ?

Có thể đạt được các hàm Grep (hoặc giống như grep) bằng cách sử dụng

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

Bạn có thể sử dụng find , theo ghi chú của RedGrittyBrick ở trên (err, bên dưới? Anh ấy tiếp tục di chuyển).

Gần đây tôi đã chuyển một tập lệnh Windows Vista Perl sang XP và nó không phải là vấn đề lớn. Những khó khăn duy nhất tôi gặp phải là sử dụng các cuộc gọi 'exec' hoặc 'system' trong Perl để kích hoạt hoạt động của các chương trình MS Office. Trừ khi bạn đang làm một cái gì đó như thế này, bạn có thể sẽ không gặp khó khăn trong việc di chuyển qua lại giữa các HĐH Windows.

Tình cờ, ban đầu tôi không biết, khi tôi sử dụng ActiveState Perl, chức năng PPM cho phép bạn lấy các thư viện có nguồn mở cho các chức năng đặc biệt. Hãy chắc chắn và thử điều đó để tránh phát minh lại bánh xe.

1. Cài đặt vị trí của perl - không nên gây ra bất kỳ vấn đề.
2. Thay thế việc sử dụng grep / find bằng các mô-đun Perl. Ví dụ: Tệp :: Tìm.
3. Tôi đã không có bất kỳ vấn đề phiên bản Windows. Bạn đã nghĩ gì vậy?

Cygwin có findvà grep.

Nếu findcung cấp cho bạn một số thông báo lỗi kỳ lạ, điều đó có nghĩa là bạn đang chạy một findlệnh khác .

Hãy thử chỉnh sửa của bạn PATHđể đặt Cygwin /binvà /usr/binkhi bắt đầu hoặc chạy findbằng tên đường dẫn tuyệt đối, ví dụ /usr/bin/findthay vì find.

Nhưng vâng, những người khác đều đúng, bạn chắc chắn có thể thay thế findbằng File::Findvà greplệnh bằng grepchức năng của Perl hoặc các toán tử khớp biểu thức chính quy
(ví dụ $line =~ /pattern/).

ActivePerl có thể tốt, nhưng Strawberry Perl dường như đang trở thành tùy chọn phổ biến nhất trên Windows, vì vậy đó là một lựa chọn khác nếu vì lý do nào đó ActivePerl không hoạt động.

Cygwin thường là giải pháp dễ nhất cho loại vấn đề này. Bạn có vấn đề gì với nó?

Bạn đã thử msys chưa? Tôi là một người dùng git vì vậy tôi gần như coi mọi thứ từ msysgit là một phần của hệ điều hành của mình.

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

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