FileHandle యొక్క కొన్ని ఉపయోగకరమైన పద్ధతులు
FileHandle మాడ్యూల్ యొక్క కొన్ని సాధారణంగా ఉపయోగించే పద్ధతులు క్రింది విధంగా ఉన్నాయి:
| పద్ధతి | ప్రయోజనం |
| చెప్పండి | ఇది ఫైల్ పరిమాణాన్ని బైట్‌లలో లెక్కించడానికి ఉపయోగించబడుతుంది. |
| getc | ఫైల్ కంటెంట్‌లోని ప్రతి అక్షరాన్ని చదవడానికి ఇది ఉపయోగించబడుతుంది. |
| కోరుకుంటారు | ఫైల్ పాయింటర్‌ను నిర్దిష్ట స్థానానికి తరలించడానికి ఇది ఉపయోగించబడుతుంది. |
| eof | ఇది ఫైల్ ముగింపును సూచిస్తుంది. |
| దగ్గరగా | ఇది గతంలో నిర్వచించిన ఫైల్ హ్యాండ్లర్‌ను మూసివేయడానికి ఉపయోగించబడుతుంది. |
Perl FileHandle ఉదాహరణలు
FileHandle మాడ్యూల్ యొక్క వివిధ ఉపయోగాలు బహుళ ఉదాహరణలను ఉపయోగించి ట్యుటోరియల్ యొక్క ఈ భాగంలో చూపబడ్డాయి.
ఉదాహరణ 1: కొత్త ఫైల్‌ను సృష్టించండి
FileHandle మాడ్యూల్‌ని ఉపయోగించి కొత్త ఫైల్‌ను సృష్టించే క్రింది స్క్రిప్ట్‌తో Perl ఫైల్‌ను సృష్టించండి. వినియోగదారు నుండి ఫైల్ పేరు తీసుకోబడింది మరియు అది ఉందో లేదో తనిఖీ చేయబడుతుంది. ఫైల్ ఉనికిలో లేకుంటే, 1 సెకను వేచి ఉన్న తర్వాత 'FileHandle' తరగతి యొక్క ఆబ్జెక్ట్‌ను సృష్టించడం ద్వారా ఫైల్ వ్రాయడం కోసం తెరవబడుతుంది.
#!/usr/bin/perl
కఠినంగా ఉపయోగించండి ;
వా డు హెచ్చరికలు ;
5.34.0 ఉపయోగించండి ;
FileHandleని ఉపయోగించండి ;
#సృష్టించడానికి వినియోగదారు నుండి ఫైల్ పేరుని తీసుకోండి
ముద్రణ 'ఫైల్ పేరును నమోదు చేయండి:' ;
నా $f = <>;
chomp ( $f ) ;
#ఫైల్ ఇప్పటికే ఉందో లేదో తనిఖీ చేయండి
ఉంటే ( -ఇ $ఎఫ్ )
{
#ఫైల్ ఉన్నట్లయితే సందేశాన్ని ముద్రించండి
అంటున్నారు 'ఫైల్ ఇప్పటికే ఉంది.' ;
}
లేకపోతే
{
#ఫైల్ హ్యాండ్లర్ ఆబ్జెక్ట్‌ని సృష్టించండి
నా $FileHandler = ఫైల్ హ్యాండిల్- > కొత్త ;
అంటున్నారు 'ఫైల్‌లోకి వ్రాస్తున్నాను...' ;
#1 సెకను వేచి ఉండండి
నిద్ర ( 1 ) ;
#రాయడం కోసం ఫైల్‌ని తెరవండి
ఉంటే ( $FileHandler- > తెరవండి ( '> $f' ) )
{
#ఫైల్‌లో టెక్స్ట్ లైన్ రాయండి
ముద్రణ $FileHandler 'ఇది పరీక్ష సందేశం. \n ఇది రెండవ పంక్తి. \n ' ;
#ఫైల్ హ్యాండ్లర్‌ను మూసివేయండి
$FileHandler- > దగ్గరగా ;
}
}
అవుట్‌పుట్:
అవుట్‌పుట్ ప్రకారం, “test.txt” ఫైల్ ఇంతకు ముందు లేదు మరియు ఈ ఫైల్ రెండు లైన్ల టెక్స్ట్‌తో సృష్టించబడింది. అప్పుడు, ఫైల్ కంటెంట్‌తో విజయవంతంగా సృష్టించబడిందో లేదో తనిఖీ చేయడానికి “cat” ఆదేశం అమలు చేయబడుతుంది:
స్క్రిప్ట్ అదే ఇన్‌పుట్ విలువతో మళ్లీ అమలు చేయబడుతుంది మరియు “test.txt” ఫైల్ ముందు సృష్టించబడినందున “ఫైల్ ఇప్పటికే ఉంది” సందేశం ఇక్కడ ముద్రించబడుతుంది.
ఉదాహరణ 2: ఫైల్ యొక్క కంటెంట్‌ను చదవండి
ఫైల్ ఉనికిలో ఉన్నట్లయితే “FileHandle” తరగతిని ఉపయోగించి ఫైల్ కంటెంట్‌ను చదివే క్రింది స్క్రిప్ట్‌తో Perl ఫైల్‌ను సృష్టించండి. ఫైల్ పేరు వినియోగదారు నుండి తీసుకోబడింది.
#!/usr/bin/perlకఠినంగా ఉపయోగించండి ;
వా డు హెచ్చరికలు ;
5.34.0 ఉపయోగించండి ;
FileHandleని ఉపయోగించండి ;
#సృష్టించడానికి వినియోగదారు నుండి ఫైల్ పేరుని తీసుకోండి
నా $f = <>;
నా $f = ;
chomp ( $f ) ;
#ఫైల్ ఇప్పటికే ఉందో లేదో తనిఖీ చేయండి
ఉంటే ( -ఇ $ఎఫ్ )
{
#చదవడానికి ఫైల్‌ని తెరవండి
నా $FileHandler = ఫైల్ హ్యాండిల్- > కొత్త ( ' < $f' ) ;
#ఫైల్ కంటెంట్‌ను ప్రింట్ చేయండి
ముద్రణ < $FileHandler >;
#ఫైల్ హ్యాండ్లర్‌ను మూసివేయండి
$FileHandlerని మూసివేయండి ;
}
అవుట్‌పుట్:
'test.txt' ఫైల్ యొక్క కంటెంట్ అవుట్‌పుట్‌లో ముద్రించబడింది ఎందుకంటే ఇది ప్రస్తుత స్థానంలో ఉంది:
ఉదాహరణ 3: ఫైల్‌లో కంటెంట్‌ను జోడించడం
కింది స్క్రిప్ట్‌తో పెర్ల్ ఫైల్‌ను సృష్టించండి, అది కంటెంట్‌ను ఖాళీ లేని ఫైల్‌లోకి జోడించి, ఫైల్ పరిమాణాన్ని బైట్‌లలో ముద్రించండి. ఫైల్ పేరు వినియోగదారు నుండి తీసుకోబడింది. ఫైల్ ఉనికిలో ఉంటే మరియు డేటాను కలిగి ఉంటే, ఫైల్ చివరిలో టెక్స్ట్ యొక్క లైన్ జోడించబడుతుంది. లేకపోతే, సందేశం ముద్రించబడుతుంది.
#!/usr/bin/perlకఠినంగా ఉపయోగించండి ;
వా డు హెచ్చరికలు ;
5.34.0 ఉపయోగించండి ;
FileHandleని ఉపయోగించండి ;
#సృష్టించడానికి వినియోగదారు నుండి ఫైల్ పేరుని తీసుకోండి
ముద్రణ 'ఫైల్ పేరును నమోదు చేయండి:' ;
నా $f = <>;
chomp ( $f ) ;
#ఫైల్ ఇప్పటికే ఉందా మరియు ఖాళీగా ఉందా లేదా అని తనిఖీ చేయండి
ఉంటే ( -s $f )
{
నా $FileHandler = ఫైల్ హ్యాండిల్- > కొత్త ( ' >> $f' ) ;
# ఫైల్ పరిమాణాన్ని ప్రింట్ చేయండి
ముద్రణ 'ఫైల్ పరిమాణం' . $FileHandler- > చెప్పండి. 'బైట్లు. \n ' ;
అంటున్నారు 'ఫైల్‌కి కంటెంట్‌ని జోడిస్తోంది...' ;
#1 సెకను వేచి ఉండండి
నిద్ర ( 1 ) ;
#ఫైల్ చివర కంటెంట్‌ని వ్రాయండి
ముద్రణ $FileHandler 'ఇది కొత్త లైన్. \n ' ;
#ఫైల్ హ్యాండ్లర్‌ను మూసివేయండి
$FileHandler- > దగ్గరగా ;
}
లేకపోతే
{
అంటున్నారు 'ఫైల్ ఉనికిలో లేదు.' ;
}
అవుట్‌పుట్:
అవుట్‌పుట్ ప్రకారం, “test.txt” ఫైల్‌కి కొత్త లైన్ జోడించబడింది మరియు ఫైల్ పరిమాణం 45 బైట్లు. అప్పుడు, ఫైల్‌లో కంటెంట్ సరిగ్గా జోడించబడిందో లేదో తనిఖీ చేయడానికి “cat” ఆదేశం అమలు చేయబడుతుంది:
ముగింపు
ఫైల్‌లను చదవడానికి, వ్రాయడానికి లేదా జోడించడానికి Perl యొక్క ఎంపికలలో FileHandle మాడ్యూల్ ఒకటి. ఈ మాడ్యూల్ యొక్క మూడు విభిన్న ఉపయోగాలు సాధారణ ఉదాహరణలను ఉపయోగించి ఈ ట్యుటోరియల్‌లో చూపబడ్డాయి.