use strict;
use warnings;
use Spreadsheet::ParseExcel;
use Spreadsheet::WriteExcel;

print "enter the PMT part number \n";
my $partnumber= <STDIN>; 

# Create a parser to read the input Excel file.
my $parser      = Spreadsheet::ParseExcel->new();
my $in_workbook = $parser->parse( 'D:\OFFICE_WORKS\perl\bom.xls' );

if ( !defined $in_workbook ) 
{
    die $parser->error(), ".\n";
}

my $out_workbook = Spreadsheet::WriteExcel->new( 'D:\OFFICE_WORKS\perl
+\output.xls' ); # Create a writer to store the new Excel data.

# Read the data from the first worksheet (or whichever).
my $in_worksheet  = $in_workbook->worksheet( 0);
my $out_worksheet = $out_workbook->add_worksheet();
my $out_row       = 0;

my ( $row_min, $row_max ) = $in_worksheet->row_range();
my ( $col_min, $col_max ) = $in_worksheet->col_range();

for my $in_row ( $row_min .. $row_max ) {

    my $cell = $in_worksheet->get_cell( $in_row,0 );     # Check the c
+ell in the first column.
    
    print $cell "value in the cell = $cell \n";
    print $partnumber "=entered part number = $partnumber \n";
    
    if ( $cell && $cell->value() eq '$partnumber' ) {

        for my $col ( $col_min .. $col_max ) {

            my $cell = $in_worksheet->get_cell( $in_row, $col );

            next unless $cell;

            $out_worksheet->write( $out_row, $col, $cell->unformatted(
+) );           # Store the data in the output file.
        }

        $out_row++;
    }
}

error:
Not a GLOB at ----path line 33

[download]

In reply to NOT A GLOB reference by Anonymous Monk

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.