Help for this page

Select Code to Download

Select or download this
```
#!/usr/bin/perl
```

Select or download this

print "reading 'ansvarig_vardenhet_utf8.txt'\n";

Select or download this
```
open(WIN, "icd-10-codes.txt");
```
Select or download this
```
while($line = <WIN>) {
```
Select or download this
```
@columns = split(/\t/, $line);
```
Select or download this
```
#print "$columns[1]";
```

Select or download this

  foreach my $value (@columns) {
    #print "$value\n"
}

Select or download this
```
close(WIN);
```

Select or download this

print "reading 'ansvarig_vardenhet_utf8.txt'\n";
open(IN, "female1.txt");
while($line = <IN>) {

Select or download this
```
%col = split(/ /, $line);
```
Select or download this
```
#print "$columns[1]\n";
```
Select or download this
```
foreach my $val (%col) {
```

Select or download this

if($val == $columns[0]){
   $val =~ s/$val/$columns[1]/g;

Select or download this
```
    print IN ">>$val\n";
```
Select or download this
```
close(IN);
```
Select or download this
```
I am a beginner in PERL.
```

Select or download this

#!/usr/bin/perl
use strict;
...
close $out_fh
    or warn "Cannot close '$out_path': $!\nSome data may not have been
+ written.";