Hello Anonymous,

Well this site is about discussion and assisting people with their problems. Not asking people to do your work!

Having said that you do not provide us with enough data to answer to your question. I mean based on your data, how many times you want to read and reduce the tokens, is it once or infinite times?

How the tokens will be provided? You want to open a file and read the file into an input and then process it, or a user will provide the document as input.

Apart from all these notes, produce a minimal example of code to show at leas the effort that you tried to solve it.

Update: Sample of code:

#!/usr/bin/perl
use strict;
use warnings;

my @tokens = ("report_time" , "report_day" , "reset" , "read");

foreach my $singleToken (@tokens) {
    if ($singleToken eq "report_time") { print "report_t" . "\n"; } 
    elsif ($singleToken eq "report_day") { print "report_d" . "\n"; }
    elsif ($singleToken eq "reset") { print "res" . "\n"; }
    elsif ($singleToken eq "read") { print "rea" . "\n"; } 
}

__DATA__

report_t
report_d
res
rea

[download]

Is this the expected output?

Seeking for Perl wisdom...on the process of learning...not there...yet!

In reply to Re: Script to reduce tokens to minimal unique characters by thanos1983
in thread Script to reduce tokens to minimal unique characters 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.