ru.cgi.perl

 
 - RU.CGI.PERL ------------------------------------------------------------------
 From : Konstantin Tokar                     2:5020/400     11 Nov 2003  17:13:02
 To : Dmitry Derenok
 Subject : Re: приведение типов
 -------------------------------------------------------------------------------- 
 

 > Используя модуль Storable я сеpиализовал экземпляp своего объекта (объект
 > Report - pезультат фоpмиpования отчета) чеpез функцию nstore() , тепеpь делая
 > обpатную опеpацию чеpез retrieve() мне необходимо сделать кастинг, т.е.
 > пpивести пpинятую ботву к типу Report. вопpос как? retrieve возвpащает scalar
 
 В разделе SYNOPSIS по perldoc Storable есть примеры, попробуй их прочитать.
 
 #!/usr/bin/perl -w
 use strict;
 use Storable;
 use Data::Dumper;
 
 package Report;
 sub new{
   bless {1=>111, 2=>222,}, 'Report';
 }
 1;
 
 package main;
 
 my $report = new Report;
 print Dumper($report);
 store $report, 'file';
 my $hashref = retrieve('file');
 print Dumper($hashref);
 
 --- ifmail v.2.15dev5.1
  * Origin: Demos online service (2:5020/400)
 
 

Вернуться к списку тем, сортированных по:

Тема:    Автор:    Дата:    приведение типов   Dmitry Derenok   11 Nov 2003 18:16:07   Re: приведение типов   Konstantin Tokar   11 Nov 2003 17:13:02   Moderatorial [+] (Re: приведение типов)   Comoderator of RU.CGI.PERL   11 Nov 2003 17:23:21