Perl Datei auf Deskop erstellen

[Dein Lehrer]

es sei denn, Perl ist so schlau und kann mit open(TE, "> %USERPROFILE%\Desktop\test.txt") umgehen.

Wozu sollte es das tun? Perl ließt (wie jede auch nur halbwegs brauchbare Programmiersprache) Umgebung, Optionen und Argumente.

#! /usr/bin/perl
use strict;
foreach(keys(%ENV)) {
   print "$_ : $ENV{$_}\n";
}

oder gleich:

#! /usr/bin/perl
use strict;
print "HOME : $ENV{'HOME'}\n";

also:

open(TE, '> ' . $ENV{'HOME'} . '/Desktop/test.txt');