Heren,
Ik heb een script en die loopt vast op spaties in filenamen
Het probleem is dat mv of cp de spaties niet pakt
/start/
#!/usr/bin/perl
$dir = "/data/pdfconv";
opendir(DIR, "$dir");
my @files = readdir(DIR);
for $i (@files)
{
if ($i =~ /.*\.prn$/)
{
$i =~ s/\ /\\\ /g;
$j = $i;
$j =~ s/\.prn$/\.ps/i;
unless (-e $j)
{
# `cp -af $i $j`;
`mv $i $j`;
$k = $i;
$k =~ s/\.prn$/\.pdf/i;
$l = $i;
$l =~ s/\.prn$/\.txt/i;
$m = $i;
$m =~ s/\.prn$/\.ready/i;
`ps2pdf12 $j $k >$l`;
`touch $m`;
# `rm -rf $i`;
# `rm -rf $j`;
}
}
}
/end/
Het loopt vast op mv en cp helaas ik er ff niet zo 123 uit iemand een ID ?
tnx
Ik heb een script en die loopt vast op spaties in filenamen
Het probleem is dat mv of cp de spaties niet pakt
/start/
#!/usr/bin/perl
$dir = "/data/pdfconv";
opendir(DIR, "$dir");
my @files = readdir(DIR);
for $i (@files)
{
if ($i =~ /.*\.prn$/)
{
$i =~ s/\ /\\\ /g;
$j = $i;
$j =~ s/\.prn$/\.ps/i;
unless (-e $j)
{
# `cp -af $i $j`;
`mv $i $j`;
$k = $i;
$k =~ s/\.prn$/\.pdf/i;
$l = $i;
$l =~ s/\.prn$/\.txt/i;
$m = $i;
$m =~ s/\.prn$/\.ready/i;
`ps2pdf12 $j $k >$l`;
`touch $m`;
# `rm -rf $i`;
# `rm -rf $j`;
}
}
}
/end/
Het loopt vast op mv en cp helaas ik er ff niet zo 123 uit iemand een ID ?
tnx