lmoran@wtsgSPAM.com print "\x{263a}"#!/usr/bin/perl -w use diagnostics ; use strict ; open (DIR, '>> c:\dir\dir.txt') || die "Can't open file; $!" ; while (<DIR>) { my $dir = `dir *.pl` ; write DIR ; } close DIR ;
In reply to Getting the output of a shell command by ellem
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |