Új hozzászólás Aktív témák

• #5 Lortech addikt tildy #4

  Új Válasz 2007-05-21 21:55:37 #5

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Lortech

  addikt

  válasz tildy #4 üzenetére

  pl:
  A hívó:
  $ cat elso.pl
  
  use elso;
  
  my $log_base = $elso::e;
  print ''Log base: $log_base\n'';
  my $radius = 10;
  my $area =
  elso::circle_area($radius);
  print ''Area = $area\n'';
  
  
  A modul :
  $ cat elso.pm
  
  use strict;
  
  package elso;
  our ($pi, $e);
  
  
  $pi = 3.14159;
  $e = 2.7182818;
  
  sub circle_area
  {
  my $radius = shift;
  return ($pi * $radius * $radius);
  }
  1;
  
  A kimenet:
  Log base: 2.7182818
  Area = 314.159
  
  
  elso.pl -t kell futtatni ezekután (perl elso.pl).
  A példát innen ([link]
  ) loptam, Itt találsz egy használható leírást packagekről modulokról és a my, our jelentéséről.
  Megmondom őszintén ISA-ról sokminden eszembe jutott, de perl kontextusban semmi. Nem használtam még, nem tudom, mire jó.

Új hozzászólás Aktív témák