Переменные в Perl

Скаляры

Например:

   $Var1 = " HeLLo All !!!! :- )))))))))";

Значение этой переменной можно вывести на экран таким образом:

       $Var1 = " HeLLo All !!!! :- )))))))))";
       print "Значение $Var1 = $Var1";

       Значение $Var1 = HeLLo All !!!! :- )))))))))

      Значение $Var1 = $Var1;

Пример:

        print "Сегодня: ",'date';

        Сегодня: Oct 28 16:36:10 YEKST 1999

Скалярам можно присвоить не только строки, но и числовое значение. Числа не заключаются в кавычки.

Пример:

       $Var3 = 80;
      print "->$Var3<- ";

      ->80<-

Массивы

Значения в массивы можно занести следующим образом:

      @array = (1999,"Hello",'Привет',`date`);

       $array[0] = 1999;
       $array[1] = "Hello";
       $array[2] = 'Привет';
       $array[3] = `date`;

Если вы захотите вывести его, можно воспользоваться таким способом:

       print "This array : @array";

       This array : 1999 Hello Привет Oct 28 16:36:10 YEKST 1999

       print "This array :",@array;

       This array :1999HelloПриветOct 28 16:36:10 YEKST 1999

В массив можно включить другой массив или скаляр, присвоив элементу массива, другую переменную:

        @mas2 = (@array," - массив в  массиве, ", $var1,"- скаляр");

         @mas2[1] = @array;

           @mas2[1] = "@array";

Хеш

   %hesh = ( 'name'," Sidorov ",'data_rozhdeniya',1900,'adress',"bomzh");

          $hesh{name} =  Sidorov;
          $hesh{data_rozhdeniya} =  1900;
          $hesh{adress} = bomzh;

           %hesh = ( name => "Sidorov",
                            data_rozhdeniya =>1900,
                            adress => "bomzh");