Programowanie w systemie UNIX/Perl: Różnice pomiędzy wersjami

Usunięta treść Dodana treść
→‎Odnośniki: przykłądy
Linia 114:
 
perl m.pl
 
=Przykłady=
 
==Kopiowanie plików==
 
Jak połączyć wiele plików vcf w jeden ( rozdzielone pustą linią ) :
<source lang=perl>
#!/usr/bin/perl
# Append all *.vcf files into 1 single vcf file
# https://productforums.google.com/forum/#!topic/gmail/NVFm9HGt1sc
# amit
opendir(DIR, ".");
@files = grep(/\.vcf$/,readdir(DIR));
closedir(DIR);
open (WRITEFILE, '>>all_in_one.vcf');
foreach $thisfile (@files)
{
open (THISFILE, $thisfile);
while (<THISFILE>)
{
print WRITEFILE "$_";
}
print WRITEFILE "\n";
close(THISFILE);
}
close(WRITEFILE);
</source>
 
 
 
=Odnośniki=