Leser: 21
1 2 3 4 5
#!/usr/bin/perl -w use strict; use warnings; use ExtUtils::Installed; my ($inst) = ExtUtils::Installed -> new ();
1
2
3
4
ExtUtils::CBuilder == >0.27<
ExtUtils::Command == >1.16<
ExtUtils::Manifest == >1.58<
ExtUtils::ParseXS == >2.22<
1
2
3
4
5
ExtUtils::CBuilder == >0.27<
ExtUtils::Command == >1.16<
ExtUtils::Install == >1.54<
ExtUtils::Manifest == >1.58<
ExtUtils::ParseXS == >2.2202<
1
2
3
4
5
6
7
8
9
10
Compiler:
cc='cl', ccflags ='-nologo -GF -W3 -MD -Zi -DNDEBUG -O1 -DWIN32 -D_CONSOLE -DNO_STRICT -DHAVE_DES_FCRYPT -DUSE_SI
TECUSTOMIZE -DPRIVLIB_LAST_IN_INC -DPERL_IMPLICIT_CONTEXT -DPERL_IMPLICIT_SYS -DUSE_PERLIO -DPERL_MSVCRT_READFIX',
optimize='-MD -Zi -DNDEBUG -O1',
cppflags='-DWIN32'
ccversion='12.00.8804', gccversion='', gccosandvers=''
intsize=4, longsize=4, ptrsize=4, doublesize=8, byteorder=1234
d_longlong=undef, longlongsize=8, d_longdbl=define, longdblsize=8
ivtype='long', ivsize=4, nvtype='double', nvsize=8, Off_t='__int64', lseeksize=8
alignbytes=8, prototype=define
2010-02-09T10:57:11 GwenDragonNach der Versionsnummer zur urteilen: MS Visual C++ 6.0
QuoteVisual Studio 2008 Express Editions are free development tools.
Register your product within 30 days from installation.
2010-02-09T12:42:55 pqedit: bzw. wenns auf STDOUT landet, STDOUT. musst du halt nur vor dem use von dem entsprechenden modul machen.
1 2 3 4 5 6 7 8 9 10 11
#!/usr/bin/perl -w use strict; use warnings; open my $oldout, ">&STDOUT" or die "Can't dup STDOUT: $!"; open STDOUT, '>', "foo.out" or die "Can't redirect STDOUT: $!"; print "test1\n"; use ExtUtils::Installed; my ($inst) = ExtUtils::Installed -> new (); open STDOUT,">&",$oldout or die "Can't dup \$oldout: $!"; print "test2\n";
1 2 3 4 5 6 7 8 9 10 11
#!/usr/bin/perl -w use strict; use warnings; open my $oldout, ">&STDOUT" or die "Can't dup STDOUT: $!"; open STDOUT, '>', "foo.out" or die "Can't redirect STDOUT: $!"; print "test1\n"; eval "use ExtUtils::Installed; 1;"; my ($inst) = ExtUtils::Installed -> new (); open STDOUT,">&",$oldout or die "Can't dup \$oldout: $!"; print "test2\n";
2010-02-09T13:27:09 biancaUnd sorry, dass man mir alles zweimal sagen muss, bis ich es schnalle.
2010-02-09T13:29:22 pqdas an sich ist kein problem. deine ewige rummeckerei, wir sollen doch kein wissen voraussetzen und dann sollen wir doch wissen voraussetzen, das nervt. du beschimpfst regelmässig deine helfer, wenn dir was nicht passt.
ich hab das hier lediglich gepostet, damit das problem endlich mal vom tisch ist.
2010-02-09T13:35:12 biancaUnd Helfer beschimpfen?
Falls dem so ist, war es so nicht gemeint. Hab ich irgendwo ein falsches Wort benutzt?
Fühlt sich jemand beschimpft?
2010-02-07T19:10:23 biancaDas hab ich jetzt davon, dass ich ständig auf pq und die anderen höre und mit Modulen arbeite.
[...]
Module sind eine wirklich zweifelhafte Erfindung!
[...]
Wie kann man in so einen Mist soviel Zeit investieren? In der gleichen Zeit hätte ich mindestens 2 weitere funktionale Programmteile fertig gestellt. Das ärgert mich wirklich sehr!
2010-02-09T13:44:17 pqedit: da mir der vorwurf gemacht wurde, ich zitiere zusammenhanglos, so dass es für meine aussage passt, darf jeder die message komplett selber nachlesen: msg #132198
2010-02-09T13:18:59 biancaManchmal wäre es hilfreich, Ihr würdet mir solche Kleinigkeiten zutrauen und als "schon versucht" voraussetzen.
eval "use ExtUtils::Installed";
2010-02-09T12:46:43 GwenDragonNur Perl 5.10.1 meckert das Fehlen des Compilers an.
Perl 5.8.9 tut das nicht bei ExtUtils::Installed.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20
#!/usr/bin/perl -w use strict; use warnings; my (@modules,$inst); my $error = ''; open my $oldstd, ">&STDOUT" or $error = "Kann STDOUT nicht kopieren wegen >$!<"; if ($error eq '') { open STDOUT,'>',"foo.out" or $error = "Kann STDOUT nicht umleiten wegen >$!<"; if ($error eq '') { eval "use ExtUtils::Installed; \$inst = ExtUtils::Installed -> new (); \@modules = \$inst -> modules ();"; # muss zwingend in eval, weil sonst eine nicht unterdrückbare Meldung wg. fehlendem Compiler rauskommt! open STDOUT,">&",$oldstd; close $oldstd; } } if (scalar @modules) { for my $modul (sort {lc $a cmp lc $b} @modules) { print $modul . " == >" . $inst -> version ($modul) . "<\n"; } }