pintos-os.org Git - pspp/blob - perl-module/Examples.pod

   1 =pod
   2
   3 =for comment PSPP - a program for statistical analysis.
   4 =for comment Copyright (C) 2019 Free Software Foundation, Inc.
   5 =for comment
   6 =for comment This program is free software: you can redistribute it and/or modify
   7 =for comment it under the terms of the GNU General Public License as published by
   8 =for comment the Free Software Foundation, either version 3 of the License, or
   9 =for comment (at your option) any later version.
  10 =for comment
  11 =for comment This program is distributed in the hope that it will be useful,
  12 =for comment but WITHOUT ANY WARRANTY; without even the implied warranty of
  13 =for comment MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  14 =for comment GNU General Public License for more details.
  15 =for comment
  16 =for comment You should have received a copy of the GNU General Public License
  17 =for comment along with this program.  If not, see <http://www.gnu.org/licenses/>.
  18
  19 =head1 PSPP::Examples
  20
  21 This page shows some simple examples of using the PSPP module.
  22 See L<PSPP> for details on each of the subroutines.
  23
  24 =head2 A Simple example
  25
  26 This example creates a system file called F<foo.sav>, containing one
  27 variable called "id".  It contains no data.
  28
  29         use PSPP;
  30
  31         my $dict = PSPP::Dict->new ();
  32         my $var = PSPP::Var->new ($dict, "id");
  33
  34         my $sysfile = PSPP::Sysfile->new ("foo.sav", $dict);
  35         $sysfile->close();
  36
  37
  38 =head2 A slightly more complex example
  39
  40 In this example there are three variables, called "id", "name" and "dob".
  41 Their formats are F2.0, A80 and DATETIME17 respectively.
  42
  43         use PSPP;
  44
  45         my $dict = PSPP::Dict->new ();
  46         PSPP::Var->new ($dict, "id",
  47                    (fmt=>PSPP::Fmt::F, width=>2, decimals=>0) );
  48
  49         PSPP::Var->new ($dict, "name", (fmt=>PSPP::Fmt::A, width=>80) );
  50         PSPP::Var->new ($dict, "dob",  (fmt=>PSPP::Fmt::DATETIME) );
  51
  52         my $sysfile = PSPP::Sysfile->new ("foo.sav", $dict);
  53         $sysfile->close();
  54
  55 =head2 Changing the properties of variables
  56
  57 After a variable has been created, parameters may be set for it.
  58
  59         use PSPP;
  60
  61         my $dict = PSPP::Dict->new ();
  62         my $var1 = PSPP::Var->new ($dict, "id");
  63
  64         $var1->set_label ("A unique identifier");
  65         $var1->add_value_label (0, "Zero");
  66         $var1->add_value_label (1, "One");
  67
  68
  69 =head2 Appending data to the file
  70
  71 When a file is created, it contains no data.  Data is added by
  72 appending cases to the file.
  73
  74 This example creates a file with 3 cases.
  75
  76         use PSPP;
  77
  78         my $dict = PSPP::Dict->new ();
  79         PSPP::Var->new ($dict, "id",
  80            (fmt=>PSPP::Fmt::F, width=>2, decimals=>0) );
  81
  82         PSPP::Var->new ($dict, "name", (fmt=>PSPP::Fmt::A, width=>8) );
  83
  84         my $sysfile = PSPP::Sysfile->new ("foo.sav", $dict);
  85
  86         $sysfile->append_case ( [1, "Alf"] );
  87         $sysfile->append_case ( [2, "Bert"] );
  88         $sysfile->append_case ( [3, "Charlie"] );
  89
  90         $sysfile->close();
  91
  92 =head2  Variables with differing input and output formats
  93
  94 By default,  a variable's output format corresponds to the input format.
  95 However, the output format may be changed after the variable has
  96 been created.
  97
  98 This example shows how  to create a DATETIME variable using the current time
  99 as its value.  Since pspp uses a different epoch to perl, the constant
 100 PSPP::PERL_EPOCH needs to be added to the value returned from time(), in order
 101 that it be correctly represented by pspp.
 102
 103         use PSPP;
 104
 105         my $dict = PSPP::Dict->new ();
 106
 107         my $var1 = PSPP::Var->new ($dict, "entrytime",
 108                 (fmt=>PSPP::Fmt::F) );
 109
 110         $var1->set_output_format ( (fmt=>PSPP::Fmt::DATETIME, width=>20) );
 111
 112         my $sysfile = PSPP::Sysfile->new ("foo.sav", $dict);
 113
 114         my $now = time ();
 115
 116         $sysfile->append_case ( [ $now  + PSPP::PERL_EPOCH]  )
 117                 || die "Cant write case";
 118
 119         $sysfile->close();
 120
 121 =head2  Reading data
 122
 123 Data can be read from a system file or other source:
 124
 125         use PSPP;
 126
 127         my $sf = PSPP::Reader->open ("foo.sav");
 128
 129         my $dict = $sf->get_dict ();
 130
 131
 132 Once opened, the dictionary can be used like any other.
 133
 134         for ($v = 0 ; $v < $dict->get_var_cnt() ; $v++)
 135         {
 136             my $var = $dict->get_var ($v);
 137
 138             # Print the variables
 139             my $name = $var->get_name ();
 140             my $label = $var->get_label ();
 141             print "Var: $name, Label: $label\n";
 142
 143             # Retrieve and print the value labels
 144             my $vl = $var->get_value_labels ();
 145             print "$_: $vl->{$_}\n" for keys %$vl;
 146         }
 147
 148
 149 Reading of data must be done sequentially using the C<get_next_case> method.
 150
 151         while (my $c = $sf->get_next_case () )
 152         {
 153             my $v;
 154             for ($v = 0; $v < $dict->get_var_cnt(); $v++)
 155             {
 156                 print "val$v: @$c[$v] ";
 157             }
 158             print "\n";
 159         }
 160
 161
 162 =cut