![]() |
|< 1 2 3 4 5 6 7 8 9 >| | ![]() |
83 Einträge, 9 Seiten |
No Perl script found in input
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
#!/usr/local/bin/perl
##################################################################################
# Author: Daniel Cip
#
# Programmtyp: Test
#
# Programmzustand: Pre-Alpha 0.1 &nb
sp; #
# Programmname: /
#
# Programmbeschreibung: Ein Testprogramm wird hier eingerichtet und ausgetestet. #
# #
# #
# #
# #
##################################################################################
use strict;
use warnings;
use Tk;
##################################################################################
# Var. Kennzeichnung - Programm #
##################################################################################
my $new_prog = MainWindow->new();
my $title = $new_prog->title('Pre-Alpha Version 0.1');
my $prog = $new_prog->Label(-text=> 'Hallo')->pack();
my $copy_ze = "C";
my $text2 = "http://www.google.de";
$prog->Label(-text=> 'Dieses Programm wird noch bearbeitet!')->pack();
$prog->Button(-text=> 'Schließen', -command=> sub
{
print exit 0;
}, -background=> '#E06060')->pack();
my $copyright = $prog->Label(-text=> $copy_ze. "2006, by Thomas Fuchs ")->pack();
##################################################################################
# Anfang var_prog #
##################################################################################
MainLoop();
##################################################################################
# Ende var_prog #
##################################################################################
perl -MPAR -e "print $PAR::VERSION"
perl -MPAR -e "print $PAR::VERSION"
No Perl script found in input
No Perl script found in input
![]() |
|< 1 2 3 4 5 6 7 8 9 >| | ![]() |
83 Einträge, 9 Seiten |