Advertisement
Guest User

Untitled

a guest
Jun 25th, 2019
92
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.71 KB | None | 0 0
  1. pup@pup:~/perl_test$ cat numbers
  2. 1234567891
  3. 2133123131
  4. 4324234243
  5. 4356257472
  6. 3465645768000
  7. 3424242423
  8. 3543676586
  9. 3564578765
  10. 6585645646000
  11. 0001212122
  12. 1212121122
  13. 0003232322
  14.  
  15. pup@pup:~/perl_test$ cat numbers
  16. 1234567891
  17. 2133123131
  18. 4324234243
  19. 4356257472
  20. 3465645768
  21. 3424242423
  22. 3543676586
  23. 3564578765
  24. 6585645646
  25. 1212122
  26. 1212121122
  27. 3232322
  28.  
  29. $ sed -e 's/^[0]*//' -e 's/[0]*$//g' numbers
  30. 1234567891
  31. 2133123131
  32. 4324234243
  33. 4356257472
  34. 3465645768
  35. 3424242423
  36. 3543676586
  37. 3564578765
  38. 6585645646
  39. 1212122
  40. 1212121122
  41. 3232322
  42.  
  43. perl -pe 's/^0+ | 0+$//xg' numbers
  44.  
  45. while (<>) {
  46. $_ =~ s/(^0+|0+$)//g;
  47.  
  48. print $_;
  49. }
  50. }
  51.  
  52. sed 's/^00*|00*$//g' file
  53.  
  54. sed -r 's/^0+|0+$//g' file
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement