Leser: 18
|< 1 2 3 4 >| | 31 Einträge, 4 Seiten |
1
2
3
4
5
6
7
8
C:\Perl\bin\CGP02>aufg1.pl
Tk::Error: Datei kann nicht geöffnet werden at C:\Perl\bin\CGP02\aufg1.pl line 3
7.
[\&main::action]
Tk callback for .frame.button
Tk:: at C:/Perl/site/lib/Tk.pm line 228
Tk::Button::butUp at C:/Perl/site/lib/Tk/Button.pm line 111
(command bound to event)
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
43
44
45
46
47
48
49
50
51
52
53
54
55
#!/usr/local/bin/perl -w
use strict;
use Tk;
my $haupt = new MainWindow;
my $links = $haupt->Frame();
$links->Label(-text=> "Geben Sie die Namen der Ausgangsdatei und der Ausgabedatei ein: ")->pack();
my $ausgangsdatei = $links->Entry();
$ausgangsdatei->pack();
my $ausgabedatei = $links->Entry();
$ausgabedatei->pack();
my $schalter1 = $links->Button(
-text=>"START",
-command=> \&action
)->pack();
my $schalter2 = $links->Button(
-text=> "Exit",
-command => [$haupt => 'destroy']
)->pack;
my $rechts = $haupt->Frame();
$rechts->Label(-text=> "Ausgabe:")->pack();
my $daten = $rechts->Listbox();
$links->pack(-side => "left");
$rechts -> pack(-side => "right");
MainLoop();
sub action
{
open(DATEI,"<$ausgangsdatei")
or die "Datei kann nicht ge\x94ffnet werden";
open(NEU, ">$ausgabedatei")
or die "Datei kann nicht ge\x94ffnet werden";
undef$/;
my $text = <DATEI>;
print "\n\n$text\n";
$text =~s/\bsie\b/Sie/g;
print NEU $text;
print "\n\n$text\n";
close(DATEI);
close(NEU);
}
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
43
44
45
46
47
48
49
50
51
#!/usr/local/bin/perl -w
use strict;
use Tk;
my $haupt = new MainWindow;
my $links = $haupt->Frame();
$links->Label(-text=> "Geben Sie die Namen der Ausgangsdatei und der Ausgabedatei ein: ")->pack();
my $ausgangsdatei = $links->Entry();
$ausgangsdatei->pack();
my $ausgabedatei = $links->Entry();
$ausgabedatei->pack();
my $schalter1 = $links->Button(
-text=>"START",
-command=> \&action
)->pack();
my $schalter2 = $links->Button(
-text=> "Exit",
-command => [$haupt => 'destroy']
)->pack;
my $rechts = $haupt->Frame();
$rechts->Label(-text=> "Ausgabe:")->pack();
my $daten = $rechts->Listbox();
$links->pack(-side => "left");
$rechts -> pack(-side => "right");
MainLoop();
sub action
{
open(DATEI,"<$ausgangsdatei")
or die "Datei kann nicht ge\x94ffnet werden";
open(NEU, ">$ausgabedatei")
or die "Datei kann nicht ge\x94ffnet werden";
undef$/;
my $text = <DATEI>;
.
.
.
.
.
.
}
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
43
#!/usr/local/bin/perl -w
use strict;
use Tk;
my $haupt = new MainWindow;
my $links = $haupt->Frame();
$links->Label(-text=> "Geben Sie die Namen der Ausgangsdatei und der Ausgabedatei ein: ")->pack();
my $ausgangsdatei = $links->Entry()->pack();
my $ausgabedatei = $links->Entry()->pack();
my $schalter1 = $links->Button( -text=>"START",
-command=> \&action
)->pack();
my $schalter2 = $links->Button( -text=> "Exit",
-command => [$haupt => 'destroy']
)->pack;
my $rechts = $haupt->Frame();
$rechts->Label(-text=> "Ausgabe:")->pack();
my $daten = $rechts->Listbox();
$links->pack(-side => "left");
$rechts -> pack(-side => "right");
MainLoop();
sub action
{
my $input = $ausgangsdatei->get;
open(DATEI,"<$input")
or die "Datei kann nicht ge\x94ffnet werden";
my $output = $ausgabedatei->get;
open(NEU, ">$output")
or die "Datei kann nicht ge\x94ffnet werden";
undef$/;
my $text = <DATEI>;
}
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
sub action
{
my @datensicherung;
my $input = $ausgangsdatei->get;
open(DATEI,"<$input")
or die "Datei kann nicht ge\x94ffnet werden";
# Alles von der Datei in ein Array packen
while ( <DATEI> )
{
push @datensicherung, $_;
}
my $output = $ausgabedatei->get;
open(NEU, ">$output")
or die "Datei kann nicht ge\x94ffnet werden";
# Daten Plus Zeilennummer zurückschreiben in eine neue Datei
my $zeile = 1;
foreach ( @datensicherung )
{
print NEU "$zeile $_";
$zeile++;
}
}
|< 1 2 3 4 >| | 31 Einträge, 4 Seiten |