View on
MetaCPAN is shutting down
For details read Perl NOC. After June 25th this page will redirect to
Zuguang Gu > Microarray-GEO-SOFT > Microarray::GEO::SOFT::GSM



Annotate this POD

View/Report Bugs


Microarray::GEO::SOFT::GSM - GEO sample data class


  use Microarray::GEO::SOFT:
  my $soft = Microarray::GEO::SOFT->new;
  my $gse = $soft->parse;
  my $gsm = $gse->list("GSM")->[0];
  # the meta information
  # the sample data is a matrix (in fact it is a vector)
  # the names for each column
  $ the names for each row, it is the primary id for rows


A Sample record describes the conditions under which an individual Sample was handled, the manipulations it underwent, and the abundance measurement of each element derived from it. Each Sample record is assigned a unique and stable GEO accession number (GSMxxx). A Sample entity must reference only one Platform and may be included in multiple Series. (Copyed from GEO web site).

This module retrieves sample information from series data.


new("file" => $file, "verbose" = 1, 'sample_value_column' => 'VALUE')>

Initial a GSM class object. The first argument is the path of the sample data in SOFT format or a file handle that has been openned. 'verbose' determines whether print the message when analysis. 'sample_value_column' is the column name for table data when parsing GSM data.


Retrieve sample information. The sample data in SOFT format is alawys a table


Get meta information


Set meta information. Valid argumetns are 'accession', 'title' and 'platform'.


Get table information


Set table information. Valid argumetns are 'rownames', 'colnames', 'colname_explain' and 'matrix'.


Accession number for the platform the sample belong to.


Title of the series record


Accession number for the sample


primary ID for probes




expression value matrix. It is a one column matrix here.


Zuguang Gu <>


Copyright 2012 by Zuguang Gu

This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself, either Perl version 5.12.1 or, at your option, any later version of Perl 5 you may have available.



syntax highlighting: