Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

  • Congratulations bkrike on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!

Recent content by powerfulperl

  1. powerfulperl

    Orphaned files ( owner deleted)

    What u said is exactly true, but the problem here is i do not have any list of users whose accounts have been deleted. The first thing what i need to do is find the files whose owner account have been deleted and report the warning message for those files saying .. ORPHAN FILES FOUND IN THE FILE...
  2. powerfulperl

    Orphaned files ( owner deleted)

    Dude i want to write a perl script.. I thought of using the stat function but dont have any clue about how to go about it.. any help will be appreciated... thanks..
  3. powerfulperl

    Orphaned files ( owner deleted)

    I want to write a perl script for the below condition Files not contained in the user's home directory and files contained in the user's home directory, and owned by that user(user's account deleted), will remain on the system. The file will still be owned by the deleted account's user ID...
  4. powerfulperl

    Help needed to format the output of df command

    socketpair(CHILD, PARENT, AF_UNIX, SOCK_STREAM, PF_UNSPEC) What is the CHILD here?? is that a file handle?? and also thanks for replying.. :-)
  5. powerfulperl

    Help needed to format the output of df command

    This time also i want the output of df command in one line. In the above code the lines @tmp_array2=split; if(@tmp_array2<6){$_ .=<CHILD> } were not there i added it .. i just want to confirm.. whether doing this way is right or not...
  6. powerfulperl

    Help needed to format the output of df command

    I have tried the above and it worked fine.. i want to use the same code in the below example as well... what changes do i need to make apart from the above which u suggested.. I have added tmp_array2 on the same lines as mentioned above. will that work and is that enough, objective is same...
  7. powerfulperl

    Help needed to format the output of df command

    Thanks.... will try this and get back to u... :-)
  8. powerfulperl

    Help needed to format the output of df command

    #! /usr/local/bin open(DF, "df -Ph|"); while(<FH>){ chomp(); next if (/^\/proc\b/); printf("FH %s\n",$_); push(@df_output, $); } close (DF); i hv tried the option df -Ph and it works for linux but it gives an error for solaris OS. So now what i wanted to do is,i want to keep the df command, i...
  9. powerfulperl

    Help needed to format the output of df command

    Here is the code which i hv written #! /usr/local/bin open(DF, "df|"); while(<FH>){ chomp(); next if (/^\/proc\b/); printf("FH %s\n",$_); push(@df_output, $); } close (DF); When i push the line in the array, it should complete data in one line. Filesystem 1K-blocks Used Available Use% Mounted on...
  10. powerfulperl

    Help needed to format the output of df command

    Hi, I want to properly format the output of the df command and store the output in the array, the problem here is, in the third line if u guyz c when the location file system path extends the size, %, mounted on.. goes to next line when i try to push the values in the array line by line i want...

Part and Inventory Search

Back
Top