Cześć. Napisałem prosty skrypt mający na celu usuwanie komentarzy z kodów źródłowych Java, C++.
Problem w tym, że program usuwa mi całą linie z komentarzem zamiast tylko tego co w komentarzu. Może ktoś mi powiedzieć co zmienić?
#!/usr/bin/perl
open (my $in, "<", "graph.txt") or die "warning";
open (my $out, ">", "out3.txt") or die "warning";
while(my $line = <$in>) {
print $out $line
unless $line =~ m#//#;}
close $in;
close $out;
Skorzystaj z funkcji do operacji na tekście.
@Tepedete masz poniżej poprawioną wersję.
Jeżeli nie znasz dobrze perl'a to przynajmniej nie zaciemniaj sobie składni.
#!/usr/bin/perl
open (my $in, "<", "graph.txt") or die "warning";
open (my $out, ">", "out3.txt") or die "warning";
while(my $line = <$in>) {
if($line =~ /(.*)\/\//){print $out "$1\n";}
else{print $out $line;}
}
close $in;
close $out;