Hvordan bygger Unix kommandoer i Perl

Perl er et programmeringsspråk med omfattende fasiliteter for skripting og tekst manipulasjon. Perl programmer bli utført av en tolk, slik variablene er dynamisk skrevet. Når du skriver et komplekst program det er nyttig å kunne påberope operativsystem kommandoer så programmerer kan konsentrere seg om kjernefunksjon av hans kode uten å måtte implementere fra grunnen av funksjonalitet som allerede er levert av eksisterende (og testet) operativsystem kode . Spesielt kan du legge inn operativsystemkommandoer når Perl programmet kjører på Unix.

Bruksanvisning

1 Marshal argumentene for Unix-kommandoen fra Perl-kode. Den spesifikke måte å utføre dette trinnet avhenger av den tiltenkte funksjon av Perl-kode. For eksempel, for et program som oppretter en ny katalog under et gitt punkt i mappehierarkiet, inkluderer følgende linjer i koden din:

! / Usr / local / bin / perl

#

$ PointInFilesystem = $ ARGV [0];

$ NameNewDir = $ ARGV [1];

Den første kommandolinjeargument til Perl-programmet er det punktet der den nye katalogen vil bli opprettet; det andre argumentet er navnet den nye katalogen vil ha.

2 Monter Unix kommando i en enkelt streng variabel. For eksempel, for katalogen skapelsen søknaden inneholde følgende linjer i koden din:

$ UnixCommand = "mkdir $ pointInFilesystem". "/". $ NameNewDir

String variabelen "$ unixCommand" inneholder en juridisk påkalling til Unix er "mkdir" kommandoen.

3 Påkall Unix-kommandoen ved hjelp av Perl "system" kommandoen. For eksempel, for katalogen skapelsen program, inkluderer følgende linje i koden din:

system ($ unixCommand);

Når "system" blir utført, vil det skape en ny prosess og instruere det å utføre systemets argument - i dette tilfellet for å opprette en ny katalog. Din Perl program gjenopptas når prosessen skapt av "system" kommer ut. Du kan påberope seg noen andre Unix eller skallkommando ved hjelp av "systemet".